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中华学习机协会会员组织条例 


第一章总 则 

第一条为发挥中华学习机系列产品的 
社会效益，推动我国计算机普及教育进入学校 
并走向家庭，造就一大批四化建设的后备人 
才，在教育部门、计算机科研部门、生产制造部 
门、培训服务部门及广大用户和业余爱好者的 
共同倡议下成立的中华学习机协会（以下简称 
协会），是受国家法律保护的、独立开展活动的 
社会群4团体。 

第二条为充分体现协会的纽带和桥梁 
作用，沟通信息，加强横向联系，团结、调动一 
切有志于发展中华学习机事业的社会力量，协 
会接受团体会员和个人会员。 

对国 f 示间同仁，协会接纳国际会员（条例 
另颁）。 

协会特邀社会名流为荣誉会员（条例另 

顽）。 

第二章组 织 

第三条根据协会章程规定，中华学习机 
科研、生产、培训、维修、服务部门的单位和个 
人，以中华学习机从事辅助教育的大、中 、小学 
的教师和学生，配置有中华学习机的活动站、 
幼; L 园和其它机构的工作人员，拥有中华学习 
机的家庭和个人，均可申请入会。 

第四条团体会员 、国际 会员的申批权 
限，归协会常务理事会。 

个人会员申批，归协会组织工作部。 

第五条团体 会员单 位应指令一名负责 
人，以保持与协会的联系。 

第六条根据自愿原则，同一地区、同一 
业务有20个以上的团体会员，经向协会申请 
批准可以成立地区（专业）分会，或组成团体会 
员分部。 

20名以上的个人会员，经向协会组织工 
，部申请批准，也可组成会员俱乐部。 

地区（专业）分会的负责人，按协会章程规 
定的程序 报批； 会员俱乐部负责人，由民主协 


商产生。 

第三章入会程序 

第七条填写会员入会登记表，并交纳会 
费者，经协会批准后即为正式会贯，协会发给 
会员证。 

第八条经批准的团休会员、国 f 示会员， 
由协会发给会员通知书、统一核发会0证。 

荣誉会员的邀请程序，将与协会每年举办 
的重大活动同步进行。 

第九条团体会员每年交纳会费人民币 
500元。中小学和少年科技活动站根据其经济 
收入状 死可向 协会申请減兔（限期为 3—5 
年）。个人会筒每年交纳会费人民币10元。 

第+条对普及计算机教育、应用中华学 
习机卓有成效的学校和个人，协会可批准免交 
会费 5 年。中华学习机银 奖个人 茯得者，享受 
荣誉会员待遇，终生免交会费。 

在中华学习机协会下属各省、市协会扣地 
区分会尚未建立之前。凡欲参加中华学习机协 
会的单位和个人，均向中华学习机协会申请， 
待下属协会建立后再逐步转到下属协会。 

第十一条港澳台地区同行的入会程序， 
按国际会员规定办理。 

第四章会员权利和义务 

第十二条个人会员 权利： 

(一） 个人会员凭会员证可优先、 f 尤惠购买 
中华学习机硬、软件新品。 

(二） 凭会员证可优先参加协会举办的技 
术讲座、培训和技术服务活动。 

(三） 可参加协会举办的全体会好大会，以 
及各类大型社会活动。 

(四） 可在协会会刊上忧先发表本人的文 
章。 

(五） 可通过协会向国内外兄弟行业协会、 
学会取得联系。 

(六） 个人的创造发明可通过协会优先得 
到有关部门的鉴定。 

(七） 享有表决权、选举权、被选举权。 
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(一） 遵守国家法律，遵守协会章程，按期 
交纳会费，积极承担协会分派的任务，主动参 
加协会的各项活动。 

(二） 积极总结中华学习机开发生产和推 
广应用的经验，向协会提供有关中华学习机的 
各种信息。 

(三） 积极支持协会刊物，订阅协会刊物。 

(四） 积极支持由教委和机电部组织评审 
的优秀软件的发行工作，做好宣传和代销工 
作，不得非法拷贝和复制，保护作者的权益。 

(五） 用户与生产部门会员应经常进行质 
量跟踪和反馈。企业应在经济上支持协会活 
动。 

(六） 发杨协作锖神，加强技术交流，尊重 
别人劳动，不泄露他人技术成果。 

第五章其 它 

第十五条会员退会时向协会提出申请， 
由协会组织工作部除名，吊销会员证。 

第十六条会员无正当理由二年未交纳 
会费又不参加协会各项工作的，由协会组织工 
作部提请常务理事会除名。 

第+七条本条例自发布之日起实行，其 
解释权属协会常务理事会。 

关于在各省、市、自治区组建《中华学习机》杂志 
记者站的通告(草案） 

为了促进我国电脑普及教育事业和电脑产业的发展，让中华学习机系列进入学校，走向家庭，面向社会， 
面向生活，为子孙造福，中国中华学习机普及协会创办的 (( 中华学习机》杂志，将于1990年1月创刊。为此，《中华 
学习机》杂志社特决定在全国县以上城市的教育局等有关部门与单位，组建《中华学习机》杂志记者站。 

记者站与特邀记者的条件与 职责： 

1.坚持四项基本原则，自觉抵制资产阶级自由化。 

2- 具有基本的专业知识，有一定的写作水平和组稿能力。 

3. 主动掌握当地电脑普及教育与应用动态,并为本刊征集、撰写当地有关最新要闻和技术稿件。每个记者毎 
月确保采写或组稿两篇稿件。 

<1. 负有宣传本刊、扩大影响的义务。可成立读者服务部.负责当地的征订发行、维修服务、软件交流等工作。 

5-肩负为本社代办广告的任务，每位通讯记者每年不少于4000元的广告费(新产品与厂家信息，有偿人物专 
访、特写、小型报告文学 I 毎年联系7000元以上广告的，可由记者站提名，由本社专聘为“特邀广告记者”，发给专 
门证件。代办广告业务者，依照本社有关规定，发给报酬。 

6. 及时向本社反映读者的呼声、意见和建议，当好参谋。毎月组织一次评刊活动，填写“评刊表' 

7-记者站的人数原则上定3名，站长和记者由本社发正式聘任书。人员名单将在《中华学习机》杂志上刊出。 

8. 本社按规定向各记者站支付通联费和稿费。 

9. 贈会刊一份.持颁发证件参加本社组织的有关活动。 

10. 一年之内，无组稿、撰稿和尽义务者，收回证件，终止一切权利和义务。 

欲应聘通讯记者，成立通讯记者站的单位和个人，请与《中华学习机》杂志社联系。 


(八）有退会的自由。 

第十三条团体会员 权利： 

(一）优先获得各种新型中华学习机软、硬 
件产品。 

(二 M 尤先为生产厂家提供产品宣传和联 
系用户。。 

(三） 优先参加协会组织的技术培训和技 
术服务活动。 

(四） 优惠享用协会出版的资料、刊物和协 
会组织推广的优秀’软件和扩展配件产品。 

(五） 以优惠价格获得协会内的技术成果 
和各种有价技术资料。 

(六） 有权向协会提请评审或鉴定本单位 
或个人的技术成果，协会负责向上一级单位申 
报，推荐优秀的技术成果，并联系有偿转让。 

(七） 有权对协会各级领导机关的工作提 
出建议和批评。 

(八） 可通过协会向各级领导部门反映有 
关技术政策问题。 

(九） 可通过协会提出解决中华学习机的 
质量问题。 

(十）行使表决权、选举权、被选举权。 

(十一）有退会的自由。 

第十四条本协会会员的 义务： 
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中华学习机软件开发项目与推广 


中华学习机协会 


在国家科委、国家教委、国家计委、机械电子部、中 
国科协的领导下，中华学习机公司开发和生产的 CEC 
系列中华学习机，其中 CEC - I 型、 CEC - M 型已批量投 
产,并在全国推广，受到青少年和社会各界的好评。 

为了搞好计算机教育工作，为广大青少年提供优 
秀的中华学习机软件，鼓励广大软件工作者，教师和一 
切支持中华学习机事业的人士,为我国的教育软件产 
业做出贡献,现决定采用公开招标、择优推广的办法组 
织中华学习机软件的开发工作。具体组织办法 如下： 

1) 中华学习机协会牵头与有关单位协作，负责中 
华学习机软件项目立项、征集、登录工作，并对征集的 
软件进行初审。 

2) 由国家教委牵头成立各级中华学习机‘软件审查 
委员会，负责对中华学习机软件进行评审，通过评审才 
可做为中华学习机软件推广发行。 

3) 中华学习机公司负责组织合格软件的推广发行 
工作，按规定付给软件开发者一定的开发费，并根据软 
件发行量付给软件开发者发行费，以鼓励软件开发者 
的积极性。 

4) 中华学习机协会设立中华学习机优秀软件专项 
奖，每年进行评奖，对优秀软件将颁发银奖和一定的物 
质奖励。 

从一 九八八 年起首先征集 CEC - I 型、 CEC - M 型中 
华学习机的软件，项目 如下： 

1- 计算机辅助教育软件 

• 幼儿教育、图画、算术、拼音、识字、英文等教学 
软件。要求声、图配合，教学和娱乐并重;有提高智能判 
断能力的游戏软件。 

• 小学 教育: 参照小学教育大纲要求，根据教学难 
点和重点，编制语文、算术、英文、自然、音乐等各年级 
的教育软件;学生复习、测验、练习题等多种自学软件。 
要求软件内容正确，并有判断、提示、改错等功能。每个 
软件应是优秀教师的教学专家系统。 

• 初中 教育: 根据初中教学大纲和教学中的重点 
和难点，编制语文、数学、英文、历史、地理、化学、音乐 
等各科重点章节的教学软件及学生练习，测验等自学 


软件。 

• 中考 辅导: 根据高中和中专入学考试的要求编 
制辅导和模拟考试软件及各科习题库，历年考试的题 
库、题解，学生常见错误的分析和讲解软件，使学生提 
高中考能力。 

• 高中教 育:按 高中教学大纲，对各科的教学重点 
及难点编制能提高学生综合分析能力和对基本概念清 
楚理解的教学软件，图文并茂的模拟演示软件及学生 
自己作实验的软件。 

• 高考辅 导:编 制高考用的各科模拟考试题、习题 
库及题解，强化基本概念，提高解题能力。 

.• 其它类考试辅导用软件，如 TOFEL , EPT 考试 
等 

• 各种声像合成英文词曲教学软件等。 

• BASIC , logo 语言教学软件等。 

2. 中华学习机支撑软件 

• 中华学习机诊断软件，包括自诊断、用户诊断及 
排除故障指导 软件。 

• 基本图形库软件,提供键盘绘图能力和各种几 
何图形的制作、动画制作软件„ 

• 各种字处理，全屏幕编辑软件。 

• 具有版权的汉字操作系统，高级语言等。 

3. 家庭应用软件 

• 以家庭应用为主编制的图书录、通信录、备忘 
录、旅游交通、常用食谱、服装裁剪 CAD 、 家庭医生、妇 
幼保健、优生优育、咨 询等； 中老年娱乐、游戏软件。上 
述软件要求图文并茂。 

企事业单位应用软件 

• 中华学习机做为专用机使用的软 件如： 人事档 
案管理，银行终端，商店业务，条码发生器，过程控制 
等。 

• 小企业规划软件。 

• 仓库管理，病房管理,病历管理等。 

欢迎社会各界和个人提供中华学习机软件，让中 
华学习机发挥更大的社会效益。 


程序剖析与编程技巧 




. .. X'；-. > V .' 

' 〆 ," V : 


个数据库管理系统的 

' 

代码设计与踉护 

: v. j v ». i； v. _ V .'-； X*. ；；■ v^, ; V►- u v ».-； v»； : %',, v» : ；»-» _ v. ；； v. ；； y-. x 


4 询 , 


为辛带辛辛蒂带蒂辛蒂蒂蒂带带蒂带带蒂带蒂亭带蒂带蒂带带带带蒂带華蒂带蒂蒂蒂带辛带禾 


淅江绍兴师专 邵清静 

提要 本文介绍了一个在 APPLE - n 机上实现的汉字数据库管理系统的代码设 
计与维护。它对内、外存较小，而数据 a 很大的条件下开发实用管理软件的代码设计 
作出了尝试。文中重点讨论了“单代码”、“双代码”以及“负代码”，并给出了代码库的 
数据结构和维护方法。 


一、前言 

利用 Apple 汉字 dBASE - I 编写小型数据库管理 
系统，在我国一些还没配备高档机条件的用户中还是 
比较普遍的。但由于 Apple 机仅有 64 K 内存、 140 K 磁 
盘存储容贵及汉字输入输出速度慢等因素的限制，迫 
使我们程序设计齐采取一些必要的技术手段，来比较 
合理的处理上述问题。 

代码技术是编程时采用的主要技术手段之一。其 
目的是，压缩汉字长度、加快信息的输入输出。所以， 
代码设计的好坏，直接影响整个管理系统的存储容量 
和运行速度。我们在开发二年制专科学校的学生学籍 
管理系统过程中，除采用了一些传统的（如履盖技术、 
分页存贮等)技术措施外，对某些有一定规律、占用存 
储 M 大且输入输出速度慢的数据，应用“单代码”、“双 
代码”及“负代码”的特殊代码处理方式，收到了较好 
的效果。 

二、实际模型 

为方便叙述，现以某个班级为例，给出《学生学籍 
管理系统》中的成绩管理部分的数据流程(如图一）。 


厂菜班级丨 



I 档案库(略) 



，学生1 



r 学生 n 

课程1名称 

成绩 （16 个数 据项〉 


课程1名称 

成绩 （16 个数据项） 

课程2名称 

成绩 （16 个数据项） 


课程2名称 

成绩 （16 个数据项） 

课程30名称 

成绩 （16 个数 据项〉 


课程30名称 

成绩 （16 个数据项） 


图一 


二大部分组成。每个在校学生需学完必修课和选修课 
共30余门课程，时间二年共四个学期，每学期包括平 
时成绩、考试考査成绩、总评分、补考成绩，累计16 
个成绩项。编程时，我们把课程名称作为一个字段，长 
度为22个 ASCII 码（按最长课程名称)。按一个班级 
平均30人、每人30门课程计，一个课程名称字段就 
要开销 30 X 30 X 22 个字节，约 20 K 存储容置。这是绝 
对不能容忍的。另外，我们为方便统计，记录中的成 
绩字段是用数值型来描述的。但实际上某些课程的记 
分方法是用如优秀、良好等文字来表示的，这当然不 
能直接填入记录。若能填入记录，也不能直接参与统 
计处理。 

三、设计方法 

为解决上述问题，我们设计了三种代码。 

1、单代码 

“单代码”用于单位代码库中。这里的“单”和下文 
中的“双”是指代码所表示的原码意义重数，不是指数 
量值。“单位”指的是学生所在专业的专业名称。是检 
索时的主要关键字之一。并与下文中的“双代码”有着 
密切的联系。该库设三个字段，如图二所示。 

第一个记录的 LEN 字段存放即将产生的新单位 
代码。以下记录的 LEN 字段存放即将产生的新课程名 
称编码。实际为该专业的课程总数减1。 


代码 

单位名称 

LEN 



XX 

01 

数学系数学专业 

XX 

02 

数学系财会专业 

XX 

03 

中文系中文专业 

XX 


记录1 
记录2 
记录3 
记录4 


成绩管理部分的成绩库主要有课程名称与成绩 


图二 








2、双代码 

“双代码”用于课程代码库中。 

相邻专业开设的课程名称有相同的。若按单位代 
码库的编码方法，就会产生二个不同代码对应于一个 
相同名称的原码，而他们都不能反映是属于哪个专业 
的情况。从而造成检索和管理上的混乱。 

为此，我们采用了特殊的“双代码”编码方法。这 
种代码分前后二段，每段用二位数码来表示。前段二 
位数码表示该专业的单位代码，后段二位数码表示该 
专业的课程名称编码。这样既保证了原码的准确性， 
同时也大大地节省了存贮容量。按一个班级30人、每 
人30门课程计，课程名称字段部分仅需约 4 K 存储容 
量即可。这就解决了《学籍管理系统》的最关键的一个 
难题。（见图三） 


代码 

课程名称 

0101 

0102 

0103 

数学分析 
算法语言 

中学数学教材教法与研究 

0201 

0202 

. 

财会原理 
算法语言 


图三 


3、负代码 

对于成绩项中某些用文字描述的成绩，选用负值 
(考虑到成绩不会出现负数)作为代码。同时，为方便 
统计，给出了相应的统计用数值型成绩（见图四）。从 
而妥善地解决了用文字描述的课程成绩的输入输出 
及统计处理问题。 


代码 

文字成绩 

统计用成绩 

-1 

零分 

0 

-2 

不及格 

50 

-3 

及格 

60 

-4 

一般 

70 

-5 

良好 

80 

-6 

优秀 

90 


图四 

四、维护 


为确保代码的严肃性和准确性，规定代码由程序 
自动产生。所以各个代码库的维护即增加、删除等操 
作仅指对记录中的汉字名称而言。下面给出单位代码 
库和课程代码库的追加和删除的程序粗框图。 

1•单位代码库的追加(图五） 



2•单位代码库的删除（图六) 



图六 



图八 


五、结束语 

在 Apple - II 机上用汉字 dBASE - fl 编写这么大的应用软 
件，是我们的首次尝试。实践证明，我们的代码设汁是十分成 
功的。其思想方法可供同行在研制其他管理软件时参考，也 
适用于在高档机上实现。 

参考文献 〔1〕刘建敏《一种简易的检索、管理系统》苹果 
园 1985.2 

〔2〕于时《在 Apple 11上开发大型自行车管 
理系统》计算机世界月刊 1989.7 
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— 、引言 

随着 CG / CAD 学科的飞速发展，为了便于分析所 
显示的结果，把图形显示器上的图形在打印机上打印 
出来，或把图形保存在计算机中，等待需要时再显示出 
来显得尤为重要。根据用户的需要，我们设计了全屏幕 
图形打印保存及重显这三条命令，这三条命令均已拷 
贝到 bin 之下供用户使用，经过用户大量的图形考验， 
非常满意。我们的工作全部是在 Universe 68000机上 
实现的，图形显示器是 VGM ， 打印机是 fx — 100;程序 
全部用 C 语言写成，移植非常方便。 

二、图形显示器函数及打印机控制码 

1. 图形显示器函数 

VGM ——1024围形库函数是在 UNOS 操作系统 
支持下工作的，可以由 C 语言和 FORTRAN 语言调用， 
整个图形显示器的屏幕大小是 1024 X 768 个象素，同 
时可以显示8种不同的颜色，如果使用 usrcolor () 函 
数，每一种颜色还有二种不同程度深浅的灰级度，主机 
和图形显示器之间的相互通信全由 UNOS 操作系统进 
行调度和协调，用户只要调用这个函数库，显示器就能 
工作，下面简单介绍几个在本算法中用到的库函数： 
resetvgm ( cfig )； 显示器初始化，但不清屏，并按装 
帧存贮器的颜色表。 
readnxt () :读当前位置的颜色值。 
writeseg ( i ) :在当前位置水平方向显示 i 个象素。 
onpen (): 释放显示器的画笔。 
offpen (): 关闭显示器的画笔。 
a m OVe ( x , y ): 把画笔从当前位置位移到绝对坐标 
( x ， y ) 处。 

2. fx — 100打印机控制码 

fx —100打印机和主机接口我们采用并行接口， 
当然串行接口也可以，只不过速度稍慢一点而已，使用 
的设备号是 / dev / PP 2, 由于 fx —100本身有微处理器， 
所以主机只要向打印机发送相应的 ASCII 字符控制 
码，打印机就能自动工作 。 fx —100打印机对于位映象 
正常密度方式，每行最大绝对数据点是81 6 个点数。本 
算法用到的打印机控制码 如下： 

位映象方式选择 ESC * 

表达式： ^>* 此（ £80, 印）； £ 口 14«;(’*’ ,fp) ； fputc(m,fp) 5 


fputc(nl , fp) ( fputc (n2, fp) ; fputc (dl, fp) •, .t fputc 

( d „, fp )； 

其中: ESC 的十进制数是27,下同。 

* 的十进制数是42。 
m 当 m =5 时为绘图机图表方式 ，即： 
x ! y=l s 1 ，下 同。 
nl = ( 数据的数量 ) MOD 256。 
n 2 = int (数据的数量）/256。 
dl , …… , d „ 是位映象数据。 

位映象方式指定 ESC ? 

表 达式 : fputc (ESC ,fp), fputc ( ‘? ，， fp) t fputc ( V ， fp), 
fputc(m ， fp); 

其 中:？ 的十进制数是63。 

k 是正常密度位映象方式。 

打印机初始化 ESC ® 

表达式 : fputc(ESC ， fp);fputc( ‘@ ， ， fp); 

其中的十进制数是64。 

设置 n /72 英寸的行距 ESC A 
表达式 : fputc(ESC ， fp);fputc( ‘A’ ， fp);fputc(n); 

其中: ri 为行距。 

A 的十进制数是65。 

三、全屏幕图形打印方法 
众所周知，在位映象方式中 ， fx — 100打印机的第 
9针规定不起作用，所以只能使用 8 针,并且这 8 个针 
头是按列排列的，我们可以随意控制这8个针头，如果 
某一位是1,打印机头启动，打印一个点；如果是0打 
印机不打点，即相应的针头不动，这样我们就可算出， 
当8位全1时，值是（111111]1) 2 = 2 5 5 ,其它数值按照 
这种规定马上就可算出。 

要把图形从屏幕上拷贝到打印机,首先必须关闭 
显示器的画笔，防止其它用户在屏幕上显示其它图形， 
以免发生混乱，然后计算出屏幕上显示的图形宽度和 
高度，同时打开打印机的设备号，使其处于可写状态， 
这样就可向打印机发送控制码了。 

首先给打印机进行初始化，使打印机处于初始状 
态，并且设置打印机为8/72英寸的行距，因为打印机 
针头二根相邻之间的距离为1/72英寸，当 n 取 8 时，8 
针的二行之间刚好没有空隙，接下指定打印机为正常 
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密度位映象方式和绘图机图表方式 ， X : y==l : 1。在显 
示器中每次只能取一个象素的值，而打印机一次可打 
印8位象素的值，这样我们把读下来的象素进行右移， 
加工成打印机一次可打印 的值; 在读象素时，当读出来 
的值为0时，说明显示器上这一点没有图形，非0时， 
说明显示器上这一点有图形。按照这种方法，我们就可 
把屏幕上的图形从左到右、从上到下在打印机上打印 
出来。图形打印完毕后，重新使打印机处于初始化，关 
闭显示器的画笔，并关闭打印机的设备号，图形打印工 
作全部 结束。 图形拷贝到打印机纸上的命令格式如下： 
@ image xl yl x 2 y 2 
其中: xl ， yl 为屏幕图形的左下角坐标。 

x 2, y 2 为屏幕图形的右上角坐标。 

程序清单 如下： 

# define DRAW 5 / * Plotter Graphics (x : y=l : 1) 

#define HIGHT 8 / * read hight of pixel * / 

# define LF 10 / * Advances paper one line * / 

# define CR 13 / * Starts printing * / 

# define ESC 27 / * ASCII code for Escape . Precedes al ¬ 
phanumeric * / 

# define 1 N 1 T 64 / * Initializes the printer * / 

# define A 65 / * Sets n /72” line spacing * / 

# define K 75 / * Normal-density Bit Image Mode * / 

# define N 256 / * Bit-image data * / 
extern cher vgmlkcfigl []； 

# include ( stdio . h ) 
main ( argc , argv ) 
int argc ； 

char * argv []； 

{ 

FILE * fp ， * fopen ( ) ； « 

register i ， j ， k ， wide ; 
int kl ， ij ， nl ， n 2， xl ， x 2， yl ， y 2; 
resetvgm ( vgmlkcfigl )； 

system (“ttymodes " wakealpha " wakectl " waknel " 
wakeblock 〈/ dev / pp 2”）； 

sysyem( a ttymodes i 8 bit prctl scrctl escape eof 
icrlf </ dev / pp 2 w )； 

system (“ttymodes 八 ealpha 八 eetl " erawctl " etab </ 
dev / pp 2”）； 

system ( w tty modes ecrlf o 8 bit octl ocrlf oxtab </ 
dev / pp 2”）； 
of f pen ()； 
if ( argc * =5){ 

printf (“ imagin;No coordinative or error / n ”）； 


printf( a usage ；imagin min xl min yl max x 2 max y 2\ 
n”h 

printf (“Sets Normal-density bit image mode . Themaxi - 
mum number of bit - image ”； 

printf (“data per line is 480 ( FX -80) or 816 ( FX -100). \ 
n w ); 

printf (“CHEJIANG UNIVERSITY CAD/CAM CENTER \ 
N );} 

ELSE 

{ xl = atoi ( argv [ l ])； 
yl = atoi ( argv [2])； 
x 2 =atoi (argv [3]); 
y 2= atoi ( argv [4]) ；} 
wide = x 2- xl - j -1 ； 
fp=fopen ( ”/ dev / pp 2 ” ， “ w ”）； 
fputc ( ESC , fp )； 
fputc ( INIT , fp ), 
fputc ( ESC , fp )； 
fputc ( A , fp ); 
fputc ( HIGHT , fp )； 
fputc ( ESC ， fp ); 
fputc (63, fp ) I 
fputc ( K ， fp ); 
fputc ( DRAW , fp )} 
for ( j = y 2 jj>=yl jj - = HIGHT ) 

{ 

fputc ( ESC ’ fp ); 
fputc (42, fp )； 
fputc ( DRAW , fp )； 
nl = wide w % f , N ； 
n 2 = wide / N ; 
fputc(nl , fp )； 
fputc ( n 2, fp )； 
for ( i=xl ; i 〈= x 2 ;i + + ){ 
k = o ； 
for 

amove ( i , jj )； 
if(readnxtO ] =0) { 
k = kll 28)>( j - jj ), 

> 

> 

fputc ( k , fp )； 

fputc ( CR ， fp ); 
fputc ( LF ， fp ); 




fputc(ESC ， fp); 
fputc(INIT ， fp); 
onpen ()； 

system ( ” ttymodes " wakealpha " wakectl wakenl " 
wakeblock </dev/pp2 ”）； 

system ( M ttymodes i8bit prctl scrctl escape eof icrlf </ 

dev/pp2 w )； 

system( w ttymodes ealpha ectl erawctl etab ecrlf (/dev/ 
PP 2”) ； 

system( f, ttymodes 08bit octl ocrlf oxtab 〈 /dev/ 
PP 2，，)； 
fclose(fp )； 

} 

四、图形保存 

要保存显示的图形，首先要进行图形初始化，但不 
清屏，目的在于按装上帧存贮器的颜色査找表，为以后 
读出象素提供条件，然后关闭好显示器的画笔，不准任 
何用户来干扰当前显示的图形,接着就可打开存贮图 
形的文件名，并置为可写状态，接下按照用户给定的区 
域从下到上读出象素值，如果按照一般的方式,读出一 
个象素值不管是0或1都要占一个字节，那么空间占 
用童就是 0( n 2 ), 这样写文件的项数也自然增多了，当 
然也化费了很多时间。为了压缩空间，我们的办法是当 
在一段区间内的颜色值全为0时，把这一段的距离记 
录下来，先发送一个 M , M 表示位移，再发送纪录的距 
离和空格，当这段区间的颜色值不等于0时，把这一段 
的距离记录下来，发送一个 D ， D 表示相对矢量，当在 
记录距离遇到颜色值不一样时，先把前面记录下来的 
距离和空格送到文件中去再发送当前的颜色值到文件 
中去，并且重新记录当前颜色的线段距离，直到颜色值 
为0或改变颜色值为止，把前面的线段距离发送到文 
件中去。这样从左到右，从下到上，我们可以完全把图 
形的有关信息全部记录到文件中去了，最后发送一个 
终止符 S , 说明信息已经全部记录完毕，然后关闭前面 
所打开的文件，释放显示器的画笔，整个过程全部完 
毕。这样图形占有的空间是 OOogn 2 )。 

保存图形的命令格式 如下： 

@ >save xl yl x2 y2 filename 

其中: xl ， yl 为图形屏幕左下角坐标。 
x2 ， y2 为图形屏幕右下角坐标。 
filename 为用户给定保存图形数据的文件名。 
源程序清单 如下： 

/ * save, c * / 
extern char vgmlkcfigl 口； 

# include 〈 stdio. h 〉 
main (argc,argv) 


int argc ； 
char * argv []; 

{ 

FILE * fp , * fopen ()； 
register j , j , k ； 

int color 0， colorl , color 2， l ， h ， kl ， jj ， nl ， n 2， xl ， x 2 ，yl , y 2; 
char c ; 

if ( argc ] =6) 

{ 

printf (” Chejiang University \ n w )； 

printf (“ \ n ”）； 

printf (“ CAD/CAM Research Center\n ”）； 

printf (“\ n ”）； 
printf (“\ n ”）； 

printf (“ Function : take graphic on vgm into datafile \ n ”）； 
printf (“ Save : No coordinative and name of datafile \ n ”）； 
printf ( a Usage : save min xl min yl max x 2 max y 2 
datafile \ n ”）； 

printf ( w Author : Luo Guo - ming \ n ”）； 
printf (“ Date : Oct , 1988 \ n ’’）； 
exit ( O )； 

} 

else 

{ 

xl = atoi ( argv [ l ])； 
yl = atoi ( argv [2 ])； 
x 2= atoi ( argv [3]) + l ; 
y 2= atoi ( argv [4]) + l ; 

} • 

resetvgm ( vgmlkcfigl ); 
offpen ()； 

fp=fopen ( argv [5] ， “ w ”）； 
for ( j = yl ; j <= y 2; j + + ){ 
k =0； 
kl = 0； 

for (i = xl ; i < = x 2; i + + ) { 
amove ( i ， j ); 
color 0 = readnxt ()； 
if (colorOl =0) 

{ 

if ( kl ! =0) 

{ 

fprintf ( fp ，“％ c ”，“ M ”） ; 
fprintf ( fp ，“％ d ?, kl ); 
fprintf ( fp ，“％ c ”， ‘ 
ki =0； k = l ； 
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goto B ； 

> 

else 

if ( i == xl ) 

{ 

k = k + l ; 
goto B ； 

> 

if ( colorO ] = colorl ) 

{ 

fprintf ( fp ，“％ c ”，‘ D ’） ; 
fprintf ( fp ， “ ％ d ” ， colorl ); 
fprintf ( fp ，“％ c ”， ‘ ’）； 

fprintf ( fp ，“％ d ”， k ); 
fprintf ( fp ，“％ c ”， ‘ ’）; 

k = 0 ? 
goto B ； 

> 

else 

k = k - fl , 
goto B ； 

} 

if ( k ! =0) 

{ 

fprintf ( fp ，“％ c ”，‘ D ’）; 
fprintf ( fp ，“ ％ d ”， colorl ); 
fprintf ( fp ，“％ c ”， ‘ ，）； 

fprintf ( fp ，“％ d ”， k ); 
fprintf ( fp ，“％ c ”， ‘ 
k-0 ； 
kl = l , 

> 

else 

kl = kl + l ; 

B : color 1 =color 0； 

> 

fprintf ( fp ，“％ c ”， ‘ 
fprintf ( fp ，“\ n ”） ； 

} 

AB : fprintf ( fp ,“ S ”）, 
close ( fp )； 
onpen ()； 

> 

五、显示保存的图形 

图形保存是为重新显示用，而重显要比画面 
保存简单得多了。首先进行图形初始化，释放图形 


显示器的画笔，打开保存图形数据的文件名，置可 
读状态，然后读出一个字符，如果是 D , 那么读出 
颜色值，并置显示器为读出的颜色值，再读出当前 
要显示的长度值，把它显示岀来，然后记录当前的 
坐标位置，再去读下一个字符，如果不是 D 而是 
M , 那么读出位移的长度，位移到当前坐标的位置 
加上读出的长度的这个位置，如果读出遇到回车， 
那么位移到 X 的初始位置， y 加1的位置上，这样 
一直进行下去，直至读到 S , 说明文件中数据已读 
完，显示也已完毕，然后关闭以上打开的数据文 
件，退出 display 运行文件的执行，整个过程完毕。 
重显图形的命令格式如下： 

@>display x y filename 
其中: x，y 为左下角坐标。 

filename 为保存图形的数据文件名。 

/ * display , c * / 
extern char vgmlkcfigl []; 

# include < stdio . h > 
main ( argc , argv ) 
int argv ； 
cher * argv []； 

{ 

FILE * fp , * fopen ()； 
register i ， j ; 
int col ， i ， jj ; 
char c ； 

if ( argc ! =4) 

{ 

printf (“ Chejinag University \ n w )； 

printf (“\ n ”）； 

printf (“ CAD/CAM Research Center \ 

n w ); 

printf (“\ n ”）； 
printf (“\ n ”）； 

printf ( u Function : Graphic of display on vgm \ 

n ，，) ； 

printf (“ Display : No coordinative color and 
name of datafile \ n ”）； 

printf (“ Usage : display min — 1 min yl color 
datafile \ n ”）； 

printf ( w Author : Luo Guo - ming \ n ”）； 
printf (“ Date : Oct ，1988\ n ”）； 
exit ( o )； 

> 

resetvgm ( vgmlkcfigl )； 
onpen ()； 
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i=atoi(argv[l]); 

l = i ; 

j = atoi ( argv [2])； 
fp = fopen ( argv [3] ，“ r ”）； 
amove ( i , j )； 

A:fscanf(fp ， “ ％ ” ， &c); 
switch (c) 

{ 

case ‘ D ’ ： 

fscanf ( fp ， “ ％ d ”, & col ); 
color ( col )； 

fscanf ( fp ,“％ d ”，& jj ); 
i = i + jj ; 
writeseq ( jj ) j 
break ； 
case ‘ M ’ ： 

fscanf ( fp ，“％ d ”，& jj ); 

i = i + jj ； 

amove ( i , j )； 
break ； 
case ‘\ n ’ ： 
i = l ; 

amove ( i , j ); 
break ； 
case ‘ S ’ ： 

of f pen ()； 
close ( fp )； 
exit ( O ) j 
break I 
default ； 

break ； 

} 

goto A ； 

> 

六、结论 

全屏幕图形保存、重显和图形拷贝到打印机上去， 
给用户带来了很大的方便，用户只要发一条命令就可 
把图形打印出来，还可以保存图形，等待需要时再显 
示。我们进一步的工作是要把显示器中的图形自动识 
别跟踪，进行矢量化，并从绘图机上绘出来，从而做到 
图形显示、保存、打印和绘图一体化。 




I 《中华学习机》杂志征稿启事 




《中 华学习机》杂志是中国中华学习机普及协会会 
刊。主要介绍国内外电脑和电脑普及教育事业的新成 
果,新技术，新知识，新经验，促进我国电脑普及教育事 
业的蓬勃发展和电脑的普及应用。它以先进性，知识 
性，实用性和趣味性为特色，以国内为主，兼顾国外，面 
向全国大、中、小学生、教师、青年科技朋友和千百万家 
庭，帮助他们学习、使用电脑，掌握新知识，成为他们的 
良师益友和交流经验、互相学习的园地。 

一、 征稿内容 

«中华学习机》杂志主要栏目有 ：国际 动态、电脑神 
通、电脑文摘、游戏程序擂台赛、教育软件大赛、软件交 
流、老人与电脑、电脑入门、硬件知识、操作技能、实用 
程序、程序剖析与编程技巧、辅助教学与研究、教学管 
理与研究、教学网络与通讯、中考辅导、高考辅导、数据 
处理、数据库技术、接口技术、苹果园地、故障检测与维 
修、市场信息、知识问答、厂家信息、企业家讲坛、名人 
特写、小电脑迷、新产品与新技术、初学者园地、竞赛园 
地、用户来信、读者信箱等。特别欢迎中、小学生投稿。 

二、 投稿要求 

1. 稿件讲述深入浅出，文字通俗易慷，读者喜闻乐 
见，易于推广应用。 

2. 稿件一定要用方格纸书写，每字一格(包括标点 
符号），字迹工整，标点正确。 

3. 技术稿件篇幅不要太长，一般在4000—一5000 
字为宜。新闻动态稿件不要超过500字。 

4. 插图要在坐标纸上描绘清楚正确。程序要用打 
印机打印的 原件。 对较长的汇编语言程序要用机器码 
形式打印 （16 进制代码，每行8个） 

5. 翻译或编译稿请附原文(复印件），并注明文章 
的出处和 作者。 

6. 来稿一经采用发表，即付优惠稿酬。切勿一稿两 
投。写明工作单位及详细通信地址，以便经常联系。来 
稿若不采用，一般不予退回。 

7. 来稿请 寄：山 东省潍坊市东风大街60号《中华 
学习机》杂志编辑部。 


欢史故鴉 


或谢支持 
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• 程序剖析与编程技巧 • 


关于 LIT 1. 0汉字系统高速显示设计技巧 


李铁 


LIT 1.0 汉字系统具有高速的汉字显示，显示速度 
最快达汉字210个/秒，字符570个/秒(在此以前的软 
汉字及汉卡一般为25个汉字/秒）。它是怎样达到这么 
快的速度呢？现就编制的算法介绍一下。 

APPLE — II 实现汉字显示是将汉字点阵绘制在高 
分辨率图形页上实现的，该机高分辨率页为 280 X 192 
点阵，由于这样，一般在该机上显示的汉字为 16 X 16 
点阵， 16 X 16 的汉字不太美观，若用压缩汉字点阵(如 
压缩为 14 X 16) 的方法提高显示速度，将会使汉字变 
的更难看，为此 ， LIT 1. 0没有使用这种凑合的方法，而 
是在其它方面下功夫，使用了一些 箅法。 对提高速度起 
主要作用的新算法有以下 三个： 

1. 字播横向存放法 

以前的一些软汉字(如 STC ， CDOS ， ZSD 等），字模 
存放是纵向的，而 APPLE 机高分辨率页，一字节存储 
器对应着横向的7个点，这样，纵向存放的字模显示时 
就需转换成横向的，浪费了机时，为此， LIT 】. 0字模采 
用横向 存放， CEC — I 硬汉字库模也是采用这种方法存 
放，因而使该机汉字显示速度达68个/秒。 

2. —次显示横向16点 

以前的汉字系统由于字模的纵向存放,决定了其 
汉字显示时是一点一点显示上去的，这样显示一个汉 
字就需显示 16 X 16 = 256 次点，势必大大影响了速度， 
而 L 1 T 1. 0是一次将横向的16个点显示上去，这样显 
示一个汉字只需16次，单从这一点来说，理论上速度 
就提高了十几倍,而这一部分又是影响汉字显示速度 
的主要地方，所以这一措施的采取对整个汉字显示速 
度的提高起了决定性的作用。 

另外 , UT 1.0 在 $0 EF 9 建立了一个只有7个字 
节的表，这个表的建立，大大简化了字模移位后的工 
作，也节省了一定机时。 

3. —次求地址法 

要将汉字显示到屏幕上，就需根据屏幕纵坐标求 
出对应的映象地址，这个求地址的子程序调用一次需 
要66个机器周期，老的算法是显示256个点需要调用 
256次这个子程序，而使用新算法后，可以只调用16 
次,但是】6次也需要 16 X 66 = 1056 个 t / l 器周期，我们 
能否再将这个时间再压缩一下呢，有一个简单的方法， 
就是建立一个 2 X 192 字节的表，使每个纵坐标对应着 


一个地址 (2 个字节），但是这种方法简单却不可行，因 
为对于系统的编制，尤其是操作系统的编制，我们应该 
注意节省内存，以留给用户更多的内存或用来向用户 
提供更多的功能，我们只有另想办法。 

APPLE 机高分辨率页映象地址排列有一定规律, 
我们可以根据这个规律，只求一次地址便可以 T ，其余 
15次都可由这一次导出，程序如下： 


ORG 

$ 1219 

JSR 

计算地址 

JSR 

显示 16 个点 

LDA 

$ IF 

CLC 


ADC 

# $04 

STA 

$ IF 

CMP 

# $40 

BCC 

LOOP 

SBC 

tt $20 

STA 

$ IF 

LDA 

$ IE 

EOR 

# $80 

STA 

$ IE 

BM 1 

LOOP 


通过以上几个笄法的改进，使汉字显示速度大大 
地提高了，在没有使用以上几个新兑法前，将一个汉字 
字模显示在屏幕上约需29500个机器周期，而使用了 
新算法后，只需约3000个机器周期,近十倍的提高.除 
此之外，其它地方也使用 r 一些提高速度的新 算法。 

由于査字模地址，字符写入屏幕缓冲区等部分改 
进不大，加上 DOS 的拦截等，使最终显示一个汉字所 
需时间最快(两者都最快显示)提高了 7倍以上。 

LIT 1. 0汉字系统 ASC 码显示也 采取了 以上措 
施，得到了同样的效果, ASC 码最快每秒可显示570个 
以上。 

另外 ， UT 1. 0汉字系统一个汉字只占两个代码， 
对汉字显示速度也有一定影响，因为一般软汉字系统 
一个汉字占三个内码，传送一个 汉丰需 3次，而 LIT 
0只需2次。 


12 




• 程序剖祈与编程技巧 • 


汉字状态下， IBM — PC / XT 屏幕死锁 
分析及其解决办法 

襄阳师范专科学校 何跃华 


在使用键盘扩展命令 prompt 时，常出现这样的 
问 题:正 常的数据信息(非提示行信息)进入提示行。之 
后，只改变提示行的内容，屏幕的正常内容不进行滚 
动。破坏了屏幕的正常显示，影响了用户的使用，这种 
现象人们通常称为屏幕死锁。 

造成屏幕死锁的原因是由于系统盘的根目录中的 
系统配 S 文件 CONFIG • SYS 用了设备命令 DEVICE 
= ANSI • SYS 引起的。这条命令使得 ANSI • SYS 替换 
了系统的标准屏幕和键盘支持程序，提供给用户扩展 
屏幕和键盘控制的功能。 

解决屏幕死锁的方法有下面 几种： 

方法1: 

各种汉字操作系统 (如 : CC 一 DOS ， 华达汉字操作 
系统 HD — DOS ) 的原配系统上都带有 ANSI • SYS 文 
件。这样的 ANSI • SYS 文件称为汉字操作系统的原配 
ANSI • SYS 文件。这个原配 ANSI • SYS 文件不是从 
PC — DOS 中照搬过来的，而是经过改造过来的。这是 
因为汉字操作系统的屏幕滚动范围与西文操作系统的 
屏幕滚动范围不一致。所以只要在系统盘上装入汉字 
操作系统的原配 ANSI • SYS 文件，就可以做到既不发 
生屏幕死锁，又可以使用屏幕和键盘的扩展功能。 

1 . 删除产生屏幕死锁的原配 ANSI • SYS 文件： 

C > ERASE ANSI • SYS 

2. 拷贝原配 ANSI • SYS 文件： 

C>COPY A：ANSI • SYS C ： 

3. 重新启动汉字操作系统。 

方法2: 

如果你手上没有原配 ANSI • SYS 文件，可对 
PC — DOS 的 ANSI • SYS 文件作一些修改，使其与汉字 
操作系统的 ANSI • SYS 文件一致，消除屏幕死锁的现 
象。 

修改步骤 如下： 

l.ODEBUG ANSI • SYS 

— U 0256,0297 

* * * * : 02561 NC BYTE PTR [010 l ] 

* * * * ：025 A MOV AL ,[0101] 


* * * * ：025 D CMP AL ,[0101] 

* * * * ：0261 JBE 0287 

* * * * ：0263 CMP BYTE PTR [06 FA ],00* 

* * * * ：0268 JZ 026 F 

* * * * ：026 A DEC BYTE PTR [010 l ] 

* * * * . 026 E RET 

* * * * ；026 F MOV BYTE PTR [010 l ],00 

* * * * ：0274 INC BYTE PTR [0102] 

* * * * :0278 CMP BYTE PTR [0102]，19 

* * * * ：027 D JB 0287 

* * * * : 027 F MOV BYTE PTR [0102], 18 

* * * * ：0284 CALL 0298 

* * * * ：0287 MOV DH ，[0】02] 

* * * ：028 B MOV DL ，[0101] 

* * * * ：028 F MOV BH ,[0116] 

« 

* * * * ；0293 MOV AH ,02 

* * * * ： 0295 INT 10 

* * * * ： 0297 RET 

这段程序，主要是决定光标定位的范围。它的定位 
的范围为第0〜 24(18 H ) 行，因此显示的内容就有可能 
进入最后一行(第24行），从而产生屏幕死锁。现在只 
要把它的光标定位的范围限制在0〜23行，则显示内 
容就不可能进入最后一行(第24行），因而消除了屏幕 
死锁。 

2. —A 0278 

* * * * 0278 CMP BYTE PTR [0 102]，19 | 

* * * * 027 D 
—A 027 F 

* * * * 027 F 

* * * * 027 F MOV BYTE PTR [0102]，18 

* * * * 0284 

3. —W 

4. —Q 
C > 

5 . 重新启动汉字操作系统 

这样修改后的 ANSI - SYS 文件，也即消除了屏幕 
死锁，又可使用屏幕和键盘的扩展功能。 
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• 实用程 序 • 



为了帮助青少年学习英语，本人开发了初中英语 
复习 软件。 本软件复习方式有两 种:一 种是选择答案 
式，有英译汉、汉译英两种功能;一种是输入单词式，有 
出题、显示、査词三种功能。程序是在 STC 2.0 软汉字 
系统下编写完成的，故而它适用于 CEC - I,APPLE I 
及兼容机，不用汉卡支持，且屏幕显示效果较好（有屏 
幕字符放大功能）。若不用 STC 系统，可将下列语句改 
为相应 语句： 

CALL 5576 = HOME 
&. N,M = MUSIC N,M 

同时删去 POKE 802, N 和 POKE 4934, N 就可在 
CEC - I 上运行。 

选择答案式程序的功能及 特点： 

功能 : A —一英译汉; B — 汉译英 

特点 :①采 用选择答案式，不需输入原文，以方便 
操作，节约时间(也可由键盘输入英文)。 

② 计算机随机出单词，显示全部单词的译文，要求 
回答。 

③ 限定时间，等待回答，过时不答，则计算机显示 
正确答案，然后接着出题。 

④ 屏幕左上角汉字是巳显示的生词次数，右上角 
数字为答对的 次数; 学习完毕，依成绩作出相应处理； 
再学一遍或运行别的文件。 


140 FOR 1=1 TO 40: CALL 28608 ： FOR A = 0 TO 100 ： 
NEXT A,I：RETURN 

150 CALL 5576:PRINT " 回答 15 个生词 w : N= 15:INPUT " 几 

分钟内完成 "， T 

160 DIM A$ (N) ， B$ (N),F(N):D=100/N 

170 CALL 5576:PRINT，'A - 英译汉 B - 

汉译英 " ： INPUT Y$ : IFY$ = 〃 B"THEN FOR 1=1 TO 
N：READ B$ (I),A$ (I) ： NEXT：GOTO 190 
180 FOR 1=1 TO N：READ A$ (I),B$ (I)：NEXT 
190 FOR 1=1 TO N:F(I) = INT(RND(1) * N+l) 

200 L=LEN (A$ (F(l))) 

210 CALL 5576 •• PRINT" [ w I"] w ;:HTAB(30—L)/2: POKE 
802, 1：PRINT A $ (F(I))j：POKE 802 ， 0,HTAB 32 ： 
PRINT R 

220 FOR K=1 TO 33 : PRINT»—»NEXT 

230 HTAB 10:PRINT» 选择哪个答案 ? w 

240 FOR J=1 TO N/3:PRINT CHR $ (J + 64 广 一 $ (J),: 

HTAB12：PRINT CHR $ (J+69 广一 ” B $ (J+5)» 

250 HTAB 23 ： PRINT CHR $ (J + 74) w —$ (J-f 10 )： 
NEXT 

260 FOR Q=1 TO 2000 * T/N 
270 P=PEEK(—16384) jPOKE—16368,0 
280 IF F(I)=P-128-64 THEN 340 
290 IF P>128 THEN 320 
300 NEXT Q 


10 HIMEM ： 28575：CALL 5576 

30 DATA 80,33,80,37,80,41,80,45,80,49,80,53,80, 
57,80,61, 208, 33, 208, 37, 208, 41, 208, 45, 208, 49, 
208,53,208,57,208,61 

40 DATA 160,0,162,0,189,160,111 ， 133,6,232,189, 
160, 111, 133, 7,200, 177, 6,136, 145, 6, 232,224, 32, 
48,234,200,192,39,208,227,9,6,0 
50 FOR 1=1 TO 65：READ J ： POKE 28575 + 1,J：NEXT I 
60 CALL 5576：POKE 802,1：POKE 4934,3 
70 C$ = v 初中英语单词复习 〃: PRINT C$ 

80 & 200,200 ： POKE 802,2 ： POKE 4934,1：VTAB 5：HTAB 
10:PRINT 〃（ A )〃 

90 POKE 802, 0 ： POKE 4934,0：C $ = ， ' 编 程： 邵爱柏 
1990 V ：GOSUB 100 ： GOTO 150 
100 C=LEN (C$ )：FOR 1=1 TOC 

110 IF ASC (MID$ (C$ ,I,1)) = 27 THEN HTAB 30：VTAB 
10-PRINT MID$ (C$ ， I ， 3):I = I+2:GOTO 130 
120 HTAB 30：VTAB 10：PRINT MID$ (C$ ,1,1) 

130 CALL 28608：CALL 28608：FOR A=0 TO 50：NEXT A,I 


310 GOTO 330 

320 S=S-D/2：&. 2400 ， 100:HTAB 10:PRINT ，， 回答错误，， 

330 &500,200 :: 10^8 9 : ?1^1^ ， ' 正确答案是 " ： ？ 0[^ 802, 
l ： HTAB(30-L)/2 ： PRINT B$ (F(I))：FOR X =1 TO 
1000 ： NEXT POKE 802, 0：GOTO 350 

340 S = S+D：R = R + l ： &u600,200：HTAB 12:PRINT " 回答 
正确 " 

350 NEXT I 

360 HTAB 8:S=INT(S+0. 5) :PR1NT W 你的成绩是， ， S" 分〃： 
8^.5550,255 

370 IF S> = 90 THEN & 4000, 100: PRINT" : PRINT CHR 
$ (4)"RUH X 〃 

380 IF 9<60 THEN & 1000, 100：HTAB 6:PRINT W 你要努 

力学习英语呀 ！！" 

390 GOSUB 100 ： RUN 

400 DATA Those ， 那些， Flag ， 旗， Tank ， 坦克 , Plane , 飞机 

410 DATA Map ， 地图， Or ， 或者 , Have ， 有， Gun ， 枪炮 

420 DATA On ， 在 . 上， Them, 他们， Small ， 小， Made ， 制造 

(邵爱柏) 
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. 一个单位每日 
发放工资时，工资 
的零钱，须每人每 
份点清，然后才能 
到银行提款，很是 
麻烦。使用本程序， 
可打印出本次操作 
的角分总数和总 
额，也可统计出本 
次和以前总累计至 
今的总数。速度大 
大提高。 

运行程序后， 
屏幕 显示： 
“ QSRM !” 
的提示，并听 
到“啪”的一声，这 
时就可从键盘上输 
入工资表上小数点 
后的角分数据。 

当小数点后第 
二位为零，即无 
“分”时，则只按 
“角”数字，同时屏 
幕上出现提示，如， 
^ 按 “5”，则可在 
城 “QSR!!!” 的下一 
^ 行得到“50”的提 
g 示，表示有5角钱 
y 已输入计算机 （ 如 
果小数点后第二位 
十 数字不为零，这时 
2 先按 Q 键，屏幕上 
\ 出现“00 = ”的字 
样，然后按角分两 


位数字。全部数据 

输入完毕，可打入“ * ”，计算机便将总和列出，提 示： 


S=“nnn” 


Y/N? 

如果总和 S 与已计算好的工资数据相符，则打入 
“Y”, 计算机便打印出所需要的数据，形式 如下： 
S=nnn 


M 5 = nnn M 2 = nnn Mi = nnn 

F 5 = nnn F 2 = nnn Fi = nnn 

(M 5: 伍角 个数; M 2 = 贰角 个数; M 1 = 壹角个数; 
F 5 ： 伍分个数; F 2 :贰分个数; F , :壹分个数） 


如果 S 与计算好的工资数据不符，则打入 “N ”， 然 
后每按一次 “ 回车”，此时屏幕上将依次显示出打入的 
所有数据供你修改。如，上次打入数据时将 6 角误打为 
3 角，这次可在 “30” 之后打入 “60” 即可。 

将结果由打印机输出后，屏幕上提示 “C/N/D ”。 如 
果这次数据需要同以往的数据累计，则按 “C ”， 计算机 
将累计数存盘 ; 如果不需作累计，而要继续运行程序， 
则按 “N” ， 出现 “QSR!M” 提示，可再次输入数据。要终 
止程序的运行，则按 “D” 。 为了将总和打印出来，可使 
用程序 2 。 

程序 1. 

1 HOME B=0 

2 DIM (X$ (1000) 

15 PRINT TAB(15) W Q S R!! 

20 1 = 0 ： S= 0: M5 = 0 ： M2 = 0 ： M1 = 0 ： F5 = 0 ； F2=0 ： F1 

= 0 

30 1=1+1 

40 PRINT TAB(15)； : .GET X$ (I) 

45 IF X$ (I) = "l w OR X$ (I) = ,/ 2 ,, OR X$ (I)="3 w OR 
X$(I) = ， M" ORX$(I) = "5 w ORX$(I) = "6 w ORX 
$ (I) = "7"OR X $ (l)="8 w OR X $ (l) = 〃 9"OR X 
$ (I) = "0"OR X$ (I) = 〃 Q"OR X$ (I) = w * "OR X 
$(I) = 〃 "THEN 50 

47 PRINT ,n, i : PRINTSCW - ?" : GOTO 40 

50 IF X$ (1) = ,; * "THEN 260 

60 IF X $ (I)="Q W THEN PRINT"00 = w , : GET XI $ : 

GET X2$ ： X$ (I)=X1 $ +X2$ : GOTO 75 
65 IF X $ (I) = v "THEN FOR J= B TO I- 1：X $ =X 
$ (J) + X $ (J-hl) ： NEXT：B = I - 1：I = B：PRINT X 
$ : GOTO 40 

70 X$ (I)=X$ (I)+STR$ (0) 

75 PRINTX$ (I) 

77 IF X $ (I)= w "THEN FOR J= B TO I- 1：X $ =X 
$ (J)+X$ (J+1) : NEXT : B=I-1:I = B:PRINT X$ 
80 GOTO 140 

90 I — 0 ： S= 0 ： M5 = 0 ： M2 = 0 ： M1 = 0 ： F5 = 0 ： F2 = 0 ： F1 

= 0 ： S(B) = 0 
100 1=1+1 

110 PRINT X$ (I), ：INPUT 0$ 

115 IF 0$ ="H"AND K $ = W N" THEN 135 
120 IF 0$ = nn THEN 135 

130 X$ (1)=0$ 

135 IF X$ (1) = ” * " THEN 260 
140 S=S+VAL (X$ (I)) 

145 IF 0$ = W H W AND K$ = 〃 N" THEN PRINT S-S(B)：S 
(B)=S 

150 M$=MID$ (X$ (I),l,l) 

160 IF VAL (M$ )> = 5 THEN M $ =STR $ (VAL (M 
$ )-5):M5 = M5+l 
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170 IF VAL(M$ ) = 4 THEN M2=M2+2:M $ ="0 V 

180 IF VAL (M $ » = 2 THEN M $ =STR $ (VAL(M $ - 

2):M2 = M2 + 1 

190 IF VAL (M$ ) = 1 THEN M1=M1 + 1 
200 F$ =MID$ (X$ (I) ， 2 ， l) 

210 IF VAL(F$ » = 5 THEN F $ =STR$ (VAL(F$ )- 
5):F5 = F5+1 

220 IF VAL (F$ ) = 4 THEN F2=F2 + 2 ： F$ ="0" 

230 IF VAL (F $ )>=2 THEN F $ =STR $ (VAL (F 

$ )-2) ： F2 = F2-H 

240 IF VAL (F$ ) = 1 THEN F1=F1 + 1 

250 IF K $ = 〃 N" THEN 100 

255 GOTO 30 

260 PRINT ： PRINTSS= f, ；S 

270 PRINT" Y/N ?" ; : GET K $ 

280 IF K $ = W Y" THEN 310 

290 IF K $ = W N" THEN PRINT：GOTO 90 

300 GOTO 270 

310 PTINT ： PRINT ： PR# 1 

315 PRINT，，S = 〃；S 

320 PRINT "M5 = " ; M5 ， W M2 = " ; M2 ， M1 = ";M1 
330 PRINT f, F5 = ,, ； F5/ , F2 = ,, ； F2/ , Fl = v ,Fl 
340 PRINT "C/N/D" : GET K$ ： IFK$ ="D W THEN END 
345 HOME 

350 IF K $ = W C" THEN 380 

360 IF K $ = W N" THEN K $ =" Y" : GOTO 15 

370 PRINT "C/N —— 〉？" : GOTO 340 

380 D$ =CHR$ (4) 

381 PRINT D $ :〃 OPEN SONG" 

382 PRINT D$ READ SONG" 

383 FOR 1=1 TO 7 

384 INPUT P(I) 

385 NEXT 

386 PRINT D$ ;"CLOSE" 

390 P(1) = P(1)+S:P(2) = P(2)+M5:P(3) = P(3) + 

M2 ： P(4) = P(4) + M1 ： P(5) = P(5)+F5 ： P(6) = P 
(6)+F2:P(7)=P(7)+Fl 
400 PRINT D $ ; "OPEN SONG" 

410 PRINT D $ ;" WRITE SONG" 

420 FOR 1=1 TO 7 

430 PRINT P(I) 

U0 NEXT 

450 PRINT D$ ; "CLOSE" 

460 K $ = ,, Y W : GOTO 15 

程序 2 

10 D$=CHR$ (4) 

20 PRINT D $ :"OPEN SONG" 

30 PRINT D$ i ff READ SONG" 

40 FOR 1=1 TO 7 


50 INPUT P(I) 

60 NEXT I 

70 PRINT D $ ; 〃 CLOSE" 

80 PR# 1 
90 PRINT "S = 〃； P(1) 

100 PRINT W M5 = W ; P(2) ， "M2 = 〃 ； P(3) ， "M1= W ;P(4) 

110 PRINT"F5 = ";P(5) ， "F2 = " ； P(6) , 7 F1 = w ； P(7) 

120 PR# O 




实用程序 


:机中文特殊 
I 字符的键盘输人 

舟山市电力公司 傅剑 

中华学习机的汉字库内有一些特殊字体，因为它 
们不属于汉字和无相对应的区位码，所以不能用键盘 
直接输入，给利用这些字符的用户带来不便，为了解决 
特殊字符的键盘输入方法，编制了下面程序。 

0300- 20 IB FD C 9 94 F 0 04 C 9 


0308- 86 D 0 02 A 9 FF 60 A 0 00 


0310- A 2 03 A 5 39 84 38 86 39 


0318- C 9 9 E DO 04 20 51 A 8 60 
具体使用方法 如下： 

1. 首先在监控状态下输入上述程序，然后，在中文 
BASIC 或监控状态下运行该程序，即 CALL 782 或 
30 EG 。 

2. 接着按 “ F 4” 或 “ F 5” 键，并逐个输入下面列出的 
ASC I 码，就能打印出相对应的特殊字符。 
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中文打印输出格式化新法 


上海房管学校余松杰 


任何应用软件，最终总需要将处理结果以文字或 
报表形式输出，以便保存和使用。由于 APPLESOFT 
BASIC 中无打印格式语句 （PRINT USING 语句），因 
此给使用者带来了许多不便，在中文状态下，由于连 
TAB 函数也不能使用，此矛盾更为突出，大多数程序 
在打印中文报表时，若既有文字项，又有数值项，且数 
值项中既有正数，又有负数，既有整数，又有小数时，为 
简单起见一般只能采取左对齐的方式。每打印一行，首 
先对一行中各文字项与数据项测长度、加空格、定位， 
然后再打印,这种做法带来了二个 弊端: 一是每打印一 
行，定位，测长度、加空格与打印交替进行，速度大为减 
慢。二是为解决速度问题，一般将各数据项一次调入内 
存，由此产生尽管数组维数很大，但还不能满足实际处 
理的需要。 

本文在此介绍一种打印输出格式化新法，它基本 
上解决了从任意位置上起打(打印头的任意定位）。文 
宇项的左或右对齐，数值项按小数点对齐，表头栏的任 
意定位，任意多项数据的打印。 

这种方法的特点，是用控制屏幕显示格式的命令， 
变为控制打印格式。在中文状态下， POKE 214， m ( in = 
0~33 )POKE 215， n(n = 0 〜 9) 是控制屏幕显示格式的 
命令。我们可以用 POKE 214, m 命令来控制打印格式， 
其与 TAB 函数相似，是以每段第一格的打印位置作为 
参照位来定位的。 

表格设计可参照下面 方法： 

先执行程序〗，待打印出定位参照行后，就可以确 
定表头各栏位置和每项数据的打印位置。 

定位主要注意三点，凡数据项的首尾均落在同段 
内的，可直接定位;若数据项的首尾跨在二段之间的， 
则要多加一个 POKE 214,0,作再次定位参 照点; 若数 
据项之间隔开一个段接点的，则要人为地造一个跨在 
二段之间的空格项。 

程序2是定位方法示例。 

其中子程序 1(100 行〜115行），是所有数据项都 
以左对齐的方式打印输出，用 POKE 214， m 命令直接 
定位即可。 


子程序2,是文字项既有左对齐，又有右对齐，数 
值项以小数点对齐的方式打印输出。文字左对齐的方 
法同上，右对齐的方法与一般相同。小数点对齐分为二 
种 ，一 种是纯小数，整数部分不添0,用打印位置右移 
一格解决;一种是整数部分添0,按个位数对齐方法解 
决。 ' 

子程序3.是任意移动打印头（页左、页中、页右） 
打印输岀的例子。 

子种序2所采用的方法，可使我们避免一次将所 
有数据项调入内存的弊病。在内存中只需要开出打印 
一-页所需的打印变量和定位变量。一次调用打印一页 
所需的各数据项，在计算结束后，将结果送入打印变 
量。并同时将对数据项定位的结果送定位变量,然后一 
次不间断地打印一页，（当然在具体应用时，还有一些 
技巧），这样在实际处理大量数据时，计算机就成为磁 
盘与打印机的缓冲。计算机只需每次存放一页大小的 
内存，打印变量与定位变量占内存相当小，并且速度大 
为提高。据测定，完成每页35行，每行7〜8项数据的 
计算、定位，只30〜40秒左右。用 CP — 80打印机连续 
打印一页用4~5分钟，避免了计算一行打印一行的弊 
病。 

此种方法完全可以移植到西文状态，参照 POKE 
214 ,m 命令的写法，用 TAB 函数来完成上述功能。 

程序1 

5 M$ ”: N ” ： POKE 2043,80：POKE 1403, 

1 

20 FOR A=1 TO 2：FOR B=1 TO 6：PRINT M$ ， : NEXT ： 
PRINT N$ ；： NEXT 

22 FOR B=1 TO 2：PRINT M$ , s NEXT ： PRINTS- w 
30 POKE 1403,0 

中文打印示范 

5 CH = 214:M$ = “—— . ”: N$ =“---1” 

10 POKE 2043,80：POKE 1403,1 

18 FOR 1=1 TO 40 STEP 3 ： J=I：POKE CH ， 0:PRINT “”, 

19 IF 1)33 THEN J = I-34：POKE CH,33：PRINT “”； 

20 POKE CH ， J:PRINT “ 用控制 屏显命令控制 打印格 式 ”: 
NEXT 
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22 FOR 1 = 40 TO 1 STEP -3：J = I：POKE CH ， 0:PRINT “”； 
24 IF 1)33 THEN J = 1-34：POKE CH,33:PRINT “”； 

26 POKE CH ， J:PRINT “ 用控制屏显命令控制打印格式 ”： 
NEXT 

30 POKE 1403, 0：E 

410 FOR A=1 TO 2：FOR B=1 TO 6 : PRINT M $ ； ： NEXT ： 
PRINT N $ ； : NEXT 

412 FOR B=1 TO 2：PRINT M$ ； : NEXT : PRINT、-” 

414 RETURN 

程序 2 

5 CH = 214:M$ ，， : N$ 

10 POKE 2043,80：POKE 1403,1 

32 GOSUB 400 ： GOSUB 200 ： PRINT ： PRINT ： PRINT ： RE¬ 
STORE 

34 GOSUB 400 ： GOSUB 200 : PRINT : PRINT : PRINT 
36 GOSUB 400 ： GOSUB 300 : PRINT : PRINT : PRINT 
38 POKE 1403,0 

40 DATA A1-1,GFDGDHGFHF, 2. 34,324 

42 DATA A1-10,TFYTFF,43. 76, 15.49 

44. DATA A2 — 5 ， YTRGF, 0. 67,. 99 

46 DATA B1-15,EQTYRF,345. 08,23 

48 DATA B3-11,TFYYUG,1108. 56,11 

50 DATA C1-12,KJHJN,0. 76,143 

52 DATA A1-99,GHVLKF,73. 76,15. 49 

54 DATA A2--5,YTRGF, 0. 04,16 

56 DATA B1-16,JHGJMGTH,116. 78,14. 2 

58 DQTA B3-11,TFYYUG,0. 21,4. 43 

60 t)ATA APPLE, 12, IBM-PC, 36,TRS-80, 121, ATOLS ， 9, 

DJS-130,1 

62 DATA APPLE, 12, IBM-PC, 36 ， TRS-80, 12] ， ATOLS ， 9, 
DJS-130,1 

64 DATA APPLE, 12, IBM-PC, 36 ， TRS-80, 121 ， ATOLS, 9, 

DJS-130,1 

70 END 

100 FOR N〒1 TO 5：READ A$ ， B$ ， A，B 
105 C=INT(A * B * 100+. 5)/100 

110 POKE CH, 0 ： PRINT “ ”；： POKE CH, 3 ： PRINT A $ ；： 
POKE CH 、 15: PRINT B $ ； ： POKE CH ， 33: PRINT “ ”；： POKE 
CH, 6 ： PRINT A； : POKE CH, 22 ： PRINT B； : POKE CH, 33: 
PRINT C 

115 NEXT：RETURN 

200 FOR N = 1 TO 5：READ A$ ， B$ ， A，B 
210 T1 = 3 ： T2*=8 ： T3 = 23 ： T4 = 6 
» 215 I = LEN(A$ )：IF I<6 THEN I = 6-1：FOR T=1 TO I ： A$ 

= “ ，， +A$ : NEXT 

220 A$ (N)=A$ ： B$ (N) = B$ : A(N) = A ： B(N) = B：J = A 

* B ： J(N) = INT (100 * J+. 5)/100 

225 I = INT (A)：IF A>0AND A <1 THEN T2=T2+1 

228 Q2(N)=T2-LEN(STR$ (I)) 


230 I = INT(B)：IF B)0 AND B〈1 THEN T3=T3+1 
232 Q3(N)=T3-LEN(STR $ (I)) 

235 I=INT(J)：IF J)0 AND J〈1 THEN T4=T4 + 1 
238 Q4(N)=T4-LEN(STR $ (I)) 

240 NEXT 

245 FOR N=1 TO 5 

250 POKE CH,0：PRINT “” ； ：POKE CH,T1：PRINT A$ (N ),： 
POKE CH, 15 ： PRINT B $ (N), ： POKE CH, 33 ： PRINT 
POKE CH,Q2(N)：PRINT A(N),：POKE CH,Q3(N) ：PRINT B 
(N)；POKE CH, 33: PRINT “” ，： POKE CH, Q4 (N) ： PRINT J 
(N) 

255 NEXT ： PRINT：PRINT 

260 FOR N = 1 TO 5：READ A$ ,B$ ,A,B 

265 T1 = 3 S T2 = 8 ： T3=23 ： T4 = 6 

270 I = LEN(A$ )：IF I<6 THEN I = 6-1：FOR T=1 TO I:A$ 
=+A$ : NEXT 

275 A$ (N)=A$ ： B$ (N) = B$ : J = A * B ： J = INT(100 * J 
+ .5)/100 

278 I=INT(A) ： Q2(N)=T2-LEN(STR$ (I)) 

280 A1 $ (N)=STR$ (A) ： K$ =MID$ (A1 $ (N) ， 1,1):IF 
K $ =“• ” THEN Al$ (N) = “0”+A1 $ (N) 

282 I=INT(B) ： Q3(N)=T3-LEN(STR$ (I)) 

285 A2$(N)=STR$(B).K$ =MID$ (A2 $ (N), 1 ， 1) :IFK 
$ =“• ” THEN A2$ (N) = “0”+A2$ (N> 

288 I = INT(J) ： Q4(N)=T4-LEN(STR$ (I)) 

290 A3$ (N)=STR$ (J):K $ =MID$ (A3 $ (N) ， 1 ， 1):IF 
K$ =“. ，， THEN A3$ (N) = “0 ，， +A2$ (N) 

292 NEXT 

293 FOR N=1 TO 5 

295 POKE CH ， 0:PRINT “”；： POKE CH,T1；PRITN A $ (N ),： 
POKE CH, 15 ： PRtNT B $ (N),：POKE CH, 33 ： PRINT “ 、： 
POKE CH,Q2(N)：PRINT A1 $ (N) : POKE CH,Q3(N) : PRINT 
A2 $ (N) POKE CH,33:PRINT “”,: POKE CH,Q4(N) ：PRINT 
A3$(N) 

298 NEXT：RETURN 

300 FOR N=1 TO 5:READ A$，A 

310 POKE CH ， 0: PRINT “ ”；： POKE CH, 5 ： PRINT A $ ,： 

POKE CH,27：PRIHT A 

315 NEXT : PRINT : PRITN : PRINT 

320 FOR N=1 TO 5：READ A $，A 

325 POKE CH, 0 ； PRINTPOKE CH, 25 ： PRINT A $ ；： 
POKE CH,33：PRINT “”；： POKE CH ， 15:PRINT A 
328 NEXT : PRINT : PRINT : PRINT 
330 FOR N=1 TO 5：READ A$ ,A 

335 POKE CH,0:PRINT “” ，： POKE CH,33：PRINT aw ，: POKE 
CH,16：PRINT A$ , : POKE CH,33 : PRINT “” ，： POKE CH,5 : 
PRINT A 

340 NEXT：RETURN 

400 FOR A=1 TO 2：FOR B=1 TO 6 : PRINT M $ “NEXT: 
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PRINT N $ , : NEXT 

412 FOR B=1 TO 2 ： PRINTM$ , ： NEXT ： PRINT - - n 
414 RETURN 


PRINT N $ , : NEXT 

402 FOR B=1 TO 2：PRINT M$ , : NEXT:PRINT“--” 

404 RETURN 

410 FOR A=1 TO 2：FOR B=1 TO 6：PRINT M $ ， : NEXT ： 

• 苹果园地 • 

APPLE—II 绘图功能的开发 

哈尔滨船舶工程学院潘翔冯明 


APPLE — n 是一种8位微型机，它为用户提供了 
低解析和高解析屏幕绘图的功能，并且可以通过打印 
机将屏幕上所显示的图形拷贝在打印纸上。但这毕竟 
是一种有限的手段，所提供的硬拷贝图形只有 J19X 
70mm 大小，对于一些工程绘图是很不实用的。 

这里所要讨论的是为 APPLE — II 提供另外一种 
图形硬拷贝，即 X— Y 绘图机。考虑到这种功能开发的 
通用性，采用了与国际电工委员会 IEC-625 标准相 
兼容[注 1] 的 IEEE-488 标准总线系统。所使用的绘 
图机也是带有 GPIB(General Purpose Interface Bus) 接 
口的日产 DPL3321 型绘图机。 



只要用户为 APPl^— II 配备一个接口功能卡(市场可 
买到，型号为 7490A), 把它按插在 APPLE— II 主板的 
第三号槽上，即可将 APPLE- II 接入到 488 总线系 
统。由于通用接口采用了自身特有的三线互锁联络技 ■ 
术[注 2] 将接口卡上的总线连接器与 488 总线上的连 
接器连好，保证了信息在 488 母线上实现准确、可靠、 
无误地传递。 

程序编制遵循下面示例 要求： 

在 PR #3 命令之后,要跟上点名命令和初始化命 
令。格式如下： 

10: PR #3; 接通第三号槽。 

20： PRINT “@%: AT ” CHR $ (13)“ IN ，’ CHR $ (13); 点 
名，初始化。 


100 PR#0 
110 IN#0 


200 END 

@ : 置设备为控制模式， ATN 有效，后面给出的 

信息为接口信息。 

% :是 设备听地址的 ASCII 码。 

: : 置设备为命令模式， ATN 无效。后面绘出的 
信息为设备信息。 

’ ： 置设备为实验模式。 

“ AT ”，“ IN ”: 为绘图机的初始化命令。 

在20行到100行之间可以插入若干打印语句，将 
信息通过第3号槽输出给绘图机。格式如下， 

PRINT ^ AP , P ,, P 2 , P 3 ” CHR $ (13) 

AP: 为 DPL3321 绘图机的移笔指令，属于信息的 
T 段，即题头。 

Pi ， P 2 ， P 3 为移笔的参数。属于信息的 V 段，即本 
体。 

“：” 、“，”和 CHR $ (13〉为定界符。 

到此，你已经可以使用 APPLE —II 来驱动绘图机 
了。不过，在使用 DPL 3321 绘图机时还需注意，由于 
APPLE —II 在施行一次绘图机操作后,有三个单元中 
的值被破坏，使 APPLE — II 无法辩认 DOS 命令而中断 
了 DOS 操作。因此，在110行到200行之间，要加上 
POKE 54,189 ：POKE 55,158 ：POKE 56,129三个语句。 

对该单元中的内容重写，使 APPLE—H 回到 DOS 
操作。否则必须使用 CTRL — RESET 键后，才能继续施 
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行 DOS 操作。 

当完成了 APLE — II 与488总线的连通之后，我们 
讨论了红兰图的计算机处理方法。鉴于 APPLE — II 是 
一种8位机，内存容量小，所使用的语言又是解释型 
BASIC 语言，运算速度慢。因此，在程序设计当中，就尽 
量减少判断、识别和需要记忆的变量，使算法简单化， 


1 START ~ 



以便提髙速度。 

在绘红兰图过程中有三个关键性 问题: 一是引线交叉 
问题，二是引线重合问题，三是引线绕过焊点。 

(-) 引线交叉 问题： 

在红兰图中，引线可以分为水平线、斜线和竖直线 
三种。而斜线又可以分解为水平线和竖直线。 

解决引线交叉的方法是把两种不同的线分别画在 
两个面上（即电路板的两个面上），在图中用不同的颜 
色来表示不同种类的引线。这样就避免了用复杂的数 
学模型来解决引线交叉的问题，可以大大提高速度。 

(二) 引线重合 问题： 

处理引线重合的比较合理的方法是把平面划分为 
若干通道和区域。采用'记忆的方法将画过线的位置用 
数据的形式记住。但这样做的速度就太慢了。因此，就 
要采用一种速度快而又较为合理的方法。 

在实际问题中，由于同一面上是同一种线(即都是 
水平线或竖直线）。因此，采用人机对话的形式操作者 
指定引出线的长度来选择通道，避免引线重合。在输入 
需要连线的两点参数的同时，给出引出线的长度参数。 
这种方法比较满意地解决了引线重合问题。 

(三） 引线绕过焊点的 问题： 

在引线的通道上，有可能遇到焊点。在这里采用了 
判断水平和竖直方向的距离的方法。一个焊点可以用 


一个圆点表示。而一条引线到圆心的水平或竖直方向 
的距离只要大于圆的半径，就可以保证引线不通过焊 
点。有了这个前提，就可以建立简单的数学模型，解决 
引线绕过焊点的问题。 

先将各个引脚的坐标存放起来，在给定两个连接 
点的参数后，在连线的范围内去比较每个点到引线的 
竖直或水平距离。当这个距离小于一个常数时，就修改 
引线的参数，直到满足条件为止。产生的引线数据采用 
链表型数据结构保存在文件中。 

上面，对 APPLE — II 在488总线上的绘图功能的 
开发，介绍了一点经验。希望它能对488标准系统的 
进一步开发起到有益的作用。 

注释： 

① IEC625 标准与 IEEE-488 标准的编码和格式惯例完全 
相同。请参阅 IEC625 通用接 U 及其应用书第一章、第二章 

② 三线互锁技术请参阅 IEC625 通用接口及应用一书第 
二章第五节。 


• 实用程序 • 



我们在编制程序时，往往需要采取多种多样的显 
示方式，使程序更富有趣味。这里介绍的程序能够将 
CEC — 1( 或 APPLE — I ) 的高分辨第二页图形左右翻 
转后显示在高分辨第一页上，对于使用 CEC - I 设计电 
路图纸与机械图纸的用户，可以极其方便地交换视图 
方向及投影方向等。 

程序中调用的 F 4] l 开始的子程序，是计算高分辨 
每一行首地址的子程序。 

程序(机器码） 


6000— 

AD 

50 

C0 

AD 

52 

C0 

AD 

55 

6008— 

C0 

AD 

57 

CO 

A9 

40 

85 

E6 

6010— 

A9 

00 

48 

20 

11 

F4 

A5 

26 

6018— 

85 

1A 

A5 

27 

38 

E9 

20 

85 

6020— 

1B 

A0 

00 

B1 

26 

2A 

08 

A2 

6028— 

00 

2A 

66 

00 

E0 

06 

F0 

04 

6030— 

E8 

4C 

29 

60 

28 

66 

00 

84 

6038— 

1C 

A9 

27 

38 

E5 

1C 

A8 

A5 

6040— 

00 

91 

1A 

A4 

1C 

C0 

27 

F0 

6048— 

04 

C8 

4C 

23 

60 

68 

C9 

BF 

6050— 

F0 

06 

18 

69 

01 

4C 

12 

60 

6058— 

AD 

54 

C0 

60 

00 

FF 
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实 

用 

I 


在自然数中， 
我们可以将’其集 
合(除1外)分为 
二。一类是 :它的 
约数只有1和它 
本身，而没有其 
它约数。例如，2、 
3、5、7、……这种 
数叫做素 ,（ 或 
质数）；另 ''一 _ 
是 ：它的 约数除 
了1和它本身之 
夕卜，还有其它约 
数。例如,4、6、8、 
这种数叫 
，合数（或复合 
’ 数）； 1是一个特 
殊的自然数，它 
' 只有1个约数即 
i 它本身。在我们 
i 程序中，将它归 
I 放在素数一类。 

在较小自然 
数范围内，找出 
： 所有素数是不难 
的，但在较大自然数范围内，是很麻烦的。 

那么怎样从自然数集合中找出所有素数呢？可让 
计算机来为我们做这项工作。为此本人编制了下面的 
程序。此程序的原理是利用“筛法”找出不超过 N 的全 
部素数。 


利 

<• .. .『：*:, 

用 
微 
型 
计 
算 
机 

求 

素 

敷 


南 

京 

自 

动 

化 

所 


宋 

:淮: 


我们使用这样一个 定理: “如果 n 是不大于 N 的 
合数，那么 n 必然存在一个不大于的素约数。”下 
面分两步证明这个定理。 

首先证明 n 的全部约数中，1以外的最小约数是 
素数。实际上，若 m 是 n 是1以外的最小约数，而 m 又 
不是素数的话，那么 m —定是合数，若 m 是合数，那么 
m —* 定有某个约数 ml ， ml 满足条件] < ml < m，ml 
也是 n 的约数，这就与 m 是 n 的1以外的最小约数这 
个假设矛盾。于是 ri 的1以外的最小约数一定是素数。 

下面证明 n 必然有一个不大于的素约数。设 
m 是 n 的1以外的最小约数，由前面的证明可知, m — 
定是素数。现在我们证明因为，由于 n=m 
X P 及 ，则 n = m X P<N = 由 

于111<?，则，否则若，则 P 亦大于 


于是 与题设矛 

盾。这样就证明了定理。 

做为一个简单的例子，我们用“筛法”求 80 以内的 
所有素数。 

由上述定理， 80 以内的每一合数必然可以被不大 
于 V %(8<^<9) 的素数所整除，因此我们只要 
把 9 以内的素数的倍数一个一个地筛掉就可以求出 
80以内的所有素数。 

第一 步:把 1筛掉(但在程序中我们保留了 它）； 

第 二步: 把素数2的一切倍数筛掉，但要保留2; 

第 三步: 把素数3的一切倍数筛掉，但要保留3; 

第 四步: 把素数5的一切倍数筛掉，但要保留5; 

第 五步: 把素数 7 的一切倍数筛掉，但要保留 7。 

9以内的素数只有4个，所以完成上述五步就求 
出了 80以内的所有素数:1,2,3,5,7,11,13,17,19, 
23,29,31，37,41，43,47,53,59,61，67,71 ,73,79 —共 
23个素数(包含1)。 

程序显示方式是每行显示10个素数，每屏显示 
23行，超过后，将最前的行复盖显示，其余以此类推。 

此程序略作改动后即可在 CEC-I 中华学习机、 
APPLE n 、 LESE ： R 310 上运行。下面的程序已在 IBM — 
PC/XT 上运行通过。 

10 INPUT " PLEASE , INPUT NUMBER = " ; N 

20 DIMX ( N )： K =1： M =1 

30 FOR 1 = 2 TO SQR ( N ) 

40 IF X ( I ) = 0 THEN GOSUB 100 

50 NEXT I 

60 GOSUB 200 
70 END 

100 FOR J =2 TON/I 

110 X ( J * 1) = 1 

120 NEXT J 
130 RETURN 
200 CLS 

210 FOR 1=1 TON 

211 LOCATE M ，7 *K 

213 IF X ( I )<)0 THEN GOTO 230 ELSE PRINT 1 
220 K = K-f 1 

225 IF K=ll THEN K =1 

226 IF K =1 THEN M = M +1 

227 IF M = 24 THEN M = 1 
230 NEXT I 

250 RETURN 
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陶建蜀 张小蕾 张锦明 单拓生 

摘要本文论述了能实现对多选題进行评分、成绩统计及试題质量分析的 APPLE -11 应用程序系 
统。该程序系统具有以下功能：1、可靠地建立考生答案文本文件并方便地进行检索和修改；2、用等分法给 
出考试分数、总分及百分制成绩，并给出每个考生的单科（或分段或分章）成绩（3、进行成绩统计分析，给出 
成绩分布表(人数/分）、分班10分段成绩、平均成绩、及格人数、及格率等、全年级成绩排序及各单科（或分 
段分幸） 成绩； 4进行试題质量分析，给出等分法考试的可靠性系數 R 、 每題备选答案的选择分布、正答率 
(即难度指數 P )、 区分指数 r ， 并自动对试題质 f 作优劣 判断。本程序系统对多学科联考或单科考试均运 
用。 

近年来，客观性试题(即标准化试题，多选题）已逐 故有上述①②③项。如为一般考试，①项给出的是前半 


渐在医学考试中推广应用。为配合并促进医学教育上 
的这一进步，我们在 APPLE - I 1 型微机上，用 BASIC 语 
言编制了一套能实现对多选题考试进行评分、成绩统 
计及试题质 M 分析的应用程序。现介绍 如下： 

一、程序结构及说明 

全套程序由一个主程序及若干子程序构成。主程 
序以菜单形式给出可选功能项，选择后转相应子程序 
执行，完毕后再返回主程序。 

各子程序的功能 如下： 

1. 建立答案文本文件的程序 

(1) 建立标准答案顺序文本文件 TS 的程序 ST 。 

(2) 建立考生答案随机文本文件 T 的程序 S 。 该程 
序也可建立部分答案随机文本文件 T ,〜 T „ ，然后再用 
连接程序 L 形成文件 T 。 这样，在题量较大或分次考试 
时，可由几台机子同时输入。 

2- 答案文本文件内容的检索、修改程序 RS 。 

此程序可调出任意记录内容，在屏幕上显示检査。 
修改有二种方式供选择 。一 种为整个记录(一个考生的 
全部答案）的修改，即重新输入一个记录或连续的几个 
记录。另一种为记录中个别答案或连续几个答案的修 
改。 

3. 评分及成绩统计程序 NSS 1 

该程序通过调用 t 、 ts 文件数据，完成下列内容： 

(1) 评分: 列表，在考生编号后 给出： 

① 每人第一卷、第二卷分数(每题1分） 

② 两卷总分 

③ 百分制成绩 

(* 注:为检査考试的可靠性，按等分法分两卷考， 


部分和后半部分的分数，成绩主要看②③项。） 

④每人单科成绩(百分制） ：如 为多学科联考，只要 
按程序要求置入各科名称及相应题号后，该项可给出 
考生每科的得分百分率，最多达15科。如为一般的单 
科考试，可换为各段或各章的题号，即能得到相应的成 
绩。 

(2) 可靠性系数 R R 即两卷考试的相关系数 r 

经用 Spearman - Brown 公式的校 正值： 


(3) 成绩分析统计(按百分制成绩） 

① 成绩分布表(人数/分） 

② 统计学 参数: 1^]\、^]\ 2 、又、8等 

③ 分班分段成绩 （10 分段，列表给出） ：每 班每段 
人数、各段人数和占总人数百分比、每班最高分、最低 
分、平均分 

④ 总及格人数、总及格率、总不及格人数、总不及 

格率 

⑤ 全体考生从高到低成绩排序 ：名次 、成绩、属于 
该名次的所有考生编号 

⑥ 各单科总成绩‘：学科名称、题量、平均答对题 
数、平均答对百分率(即单科成绩）。（•注 ：同上 ，也可 
相应变为每段或每章总成绩。） 

(4) 试题质量分析程序 NSS 2 

该程序也通过调用 T 和 TS 文件数据，得到以下 
内容(列表打 印）： 

① 题号 

② 每题备选答案 A 、 B 、 C 、 D 、 E 及不规则答案 F (解 
释见后)的选择分布人数。 
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③ 每题的标准答案 

④ 每题正答率 Pi 

⑤ 每题难度指数 p 2 ， p 2 与 Pi 本质含义相同，但 p 2 
是用高低分组法得到的统计 结果： 


式中 : H ——高分组(成绩位于前27%的考生）的 
答对人数 

L —— 低分组(成绩位于后27%的考生)的答对人 
数 

N —— H 与 L 两组考生人数之和 

⑥ 每题区分指数 r 

2( H - L ) 

r — ~ N ~ 

式中 . H 、 L 、 N 含义同上 

⑦ 根据 P 2 、 r 值对试题质童作优劣评价 

r >0. 15, P 2 在 0.5 〜 0.7 范围内，用“ * * ”号表 
示试题质量“优 ”》 r >0. 5， P 2 在.0.' 3-0. 5或 0. 7-0.9 
范围内，用“ * ”号表示“良”; r <0. 15或 r 虽大于 0. 15 
但 P 2 <0. 3或 P 2 >0. 9 ,不打任何符号表示“差”。 

二、几个问题的处理 

1. 确保数据输入准确无误 

考生的全部答案均通过键盘置于 DATA 语句中 
读入存盘，再由处理程序调用。故准确输入存取数据是 
保证处理结果正确的最关键因素。除需键盘操作熟练， 
尽可能降低输入错误外，程序上采取了下述措施，能自 
动检出错误，显示出错内容并指出出错位置，以便及时 
更正。 

(1) 答案由 A 、 B 、 C 、 D 、 E 五个单字符组成,非规则 
答案，如像同时有两种或两种以上选择，或放弃未加选 
择等均用单字符 F 表示。程序只允许这6个字符为“合 
法”输入字符。除此之外的所有字符，包括双字符、空 
格、标点等均属“不合法”字符，可为程序检出，不能存 
盘。 

(2) 数据输入中最忌多出字符或漏掉字符，由于引 
起的数据结构改变可造成一个记录内甚至连续几个记 
录的错误。解决的方法是，程序在读入数据时，当读完 
规定题量所限定的字符数后，要读入特定的检测字符， 
否则给出出错 侉息。 同样,在数据存盘时，当存完一个 
记录后，自动加输特定检测字符；当调用这些数据时， 
程序将核对该检测字符,以保证调用的数据结构是正 
确的 

2. 解决内存不足 

APPLE-II ff] RAM 仅有 48 K ， 装入 DOS 后实际可 
用内存不足 37 K 。 而全部数据量如按200人200题计 
达4万个，加上标准答案，远远超过内存容量。故全部 
数据不可能一次调入内存。程序采用内存复盖技术，分 


段调入使整个程序的运行可以不受数据量的限制。虽 
然这相应延长了运行的时间，但我们通过对程序优化， 
采用了快速排序等技巧，使上述数据量的两个处理程 
序的总共运行时间缩短到2小时左右，已能满足一般 
情况下的需要。 

该套程序已连续几年用于基础联考和某些单科考 
试中。熟练人员可在总计20工作时内完成上述数据量 
的输入、检査及处理。错误率极低，远远优于人工处理。 

关于任意进制转换程序的改进 

河北秦皇岛商检局谢庆云 

贵刊于八八年第六期刊登的胡茂华同志“任意进 
位数转化程序”文章提出的方法具有普遍性，但是该程 
序运行还存有以下一些 问题： 

1. 第70行程序原文为 D = D +8, 应改为 D = D + 
48,否则结果不正常。 

2. 更正上述错误后，程序启动后第一次转化正确， 
不退出程序时以后的转化出现将上一次结果加在新结 
果之前的错 误：如 第一次输入为 1 F ，0，]6 结果为 IF 
(16) = 31(10), 结果正确。第二次对屏幕提示回答?31， 
10,16则结果显示为 31(10) = 1 F 31(10), 显然等号右 
端多了二个错误字符“31”。 

3. 在一次输入超过的数时，转化结果会自动 
加上一个“ * ”号。再进行新值转化时，不论该值是否大 
于 10 1 % 此“ * ”号仍存在于结果之后，这显然也是一种 
错误。 

上述问题可在第10行程序中加上对 XH $ 、 S、E 
$等变量清零的命令即可解决。 

改正后的 程序： , ( ■' 

10 XH$ =” ，，： S=0:E$ =""：INPUT N $ ， A ， B:fF N $ = 
“END” THEN END 
20 L=LEN(N$ ) ： K=1 

30 FOR J = L TO 1 STEP -1 : D= ASC(M1D$ (N $ ， J ， 1)): 

IF D<58 THEN D= D-48 : GOTO 50 
40 D=D-55 

50 S = S + K * D : K = K * A ： NEXT J : IF S>IE+10 
THEN XH $ =“ * ” 

60 D=S-INT(S/B) * B : IF D>9 THEN D=D+55 : GOTO 
80 

70 D=D+48 

80 E $ = CHR $ (D)+E $ : S= INT(S/B) : IF S〉0 
THEN 60 

90 PRINT N $ ; “ A; 

100 PRINT E$ ;XH$ B?”）” » 

110 PRINT ： GOTO 10 


23 



• 苹果园 地 • 

蒙特卡洛方法与电子讶射 

云南保山师专 尹天益 


蒙特卡洛方法是一种利用随机数列近似求解数 
学、物理或工程技术问题的数值方法。这种方法既可用 
来研究概率问题，也可以用来研女非概率问题。在物理 
学中，有许多物理现象都具有局部的随机性和其自身 
整体的统计规律，对这类现象的理解一般都较抽象。而 
用传统的实验方法来对这类现象进行演示一般效果都 
不太理想，对有些现象甚至无法或很难演示。 

大家知道，很多计算机高级语言都为用户提供了 
产生随机数列的随机函数。因此，我们可以在计算机上 
利用蒙特卡洛方法来摸拟许多具有统计规律的物理过 
程。在这方面比较典型的例子如电子衍射现象、布朗运 
动、气体分子的扩散和放射性衰变等。. 

在用电子衍射仪进行电子衍射实验时，虽然可以 
得到电子衍射的图像，但却无法观察到电子衍射过程 
的进行，更无法观察到单个电子的衍射现象。而这个过 
程的演示却可以形象直观地反应出一个非常重要的物 
理规律，即描述实物粒子波函数的统计解释(几率波）。 
为此，我们在 APPLE 机上利用 BASIC 语言编写了一个 
摸拟电子衍射实验的程序。该程序在运行过程中，可以 
非常清楚地反应出 ：每个 电子穿过金或铝箔后在荧光 
屏 上的汾 布是随机的。但大量电子穿过金或铝箔后在 
荧光屏上的分布满足一定的统计规律。通过这个程序 
的演示，可以帮助学生深刻地理解实物粒子的波动性 
及波函数的统计解释。（程序及运行结果如下） 

5 GOSUB 400 
10 HGR2 : HCOLOR= 3 

20 HPLOT 0,93 TO 8,93 TO 11,95 TO 8,97 TO 0,97 
30 HPLOT 8,92 TO 12,92 TO 12,98 TO 0,98 
40 HPLOT 0,90 TO 40,90 TO 40,94 ： HPLOT 40,96 
TO 40,100 TO 0,100 : HPLOT 20,90 TO 20,94 : 
HPLOT 20,96 TO 20,100 : HPLOT 28,90 TO 28, 
94 : HPLOT 28,96 TO 28,100 
50 HPLOT 75,80 TO 105,85 TO 105,115 TO 75,110 
TO 75,80 TO 78,80 TO 108,85 TO 105,85 TO 
105,115 TO 108,115 TO 108,85 
60 VTAB 1 : HTAB 8 : PRINT “真空环境”： VTAB 9 
: PRINT “电子枪金或铝箔” 

100 DIM R 


110 FOR 1=1 TO 22 : READ R(I) : NEXT I : A0 = 
3.141592/180 
120 FOR 1=1 TO 3000 
130 FOR J=1 TO 22 

140 A=INT(RND(J) * 360) * A0 : X1==R(J) * COS 
<A> : Y1 = R<J> * SIN (A) * X = 218-f INT(Xl) 
: Y=95+INT(Y1) 

150 GOSUB 200 

160 HCOLOR=3 : HPLOT X，Y : NEXT J 
170 J=0 * NEXT I 

200 FOR 1=12 TO 90 : HCOLOR = 3 * HPLOT 1,95 
: HCOLOR=0：HPLOT I ， 95:NEXT I : FOR 1 = 
1 TO 6： HCOLOR = 3： HPLOT 108 + I， 95 : 
HCOLOR = 0 * HPLOT 108 + 1,95 : NEXT : RE¬ 
TURN 

300 DATA 1,2,3,4,5,6,7,8,9,10,13,14,15,16, 
20,21,22,23,40,41,57,58 
400 REM 实验原理 
410 PRINT “入 =h/p=h/mv” 

490 GET W $ 

500 RETURN 

运行 8 分祌后 

真空环境 



金或铝箔 

由程序可以看出 ：用蒙 特卡洛方法摸拟物理现象， 
在随机性作图上有两方面的含义:一是图象的生成过 
程没有任何顺序。即先发生哪些点，后发生哪些点是完 
全随机的；二是最后形成的图象并不是我们事先完全 
确定好的，而只是在总体上满足一定的统计规律。显然 
用蒙特卡洛方法摸拟某一个物理过程，其关键是要建 
立一个与该物理过程相关的几率模型。当然，蒙特卡洛 
方法在非概率问题的研究上也是大有用武之地的。如 
一些特殊的定积分运算和偏微分方程（如 Laplace 方 
程)的求解。 
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满足 a 2 + b 2 = 
c 2 的一组自然数 
a 、 b 、 c 称为勾股弦 
数组，例如3、4、5; 
5、12、13;8、15、17; 
……都是勾股弦数 
组。又如6、8、10; 
9、12、15; …… 虽然 
它们 满足勾股弦数 
组关系，但是它们 
可以看做是3、4、5 
倍数的扩展，这里 
不致虑，这里只计 
算 ( a ， b ， c )’ = l 即 
a 、 b 、 c 互质的情况。 

勾股弦数组是 
勾股定理、平面三 
角、平面解析几何 
中椭圆和双曲线方 
程常用的数据，如 
果掌握勾股弦数组 
的求法，将能灵活 
地编出有关这方面 
的 问题。 例如双曲 
线的实半轴 a 虚半 
轴 b 是勾股数，那 
末计算半焦距 c 就 
不会产生无理数。 

容易证明，每 
一组 勾股弦 数组， 
必然是两奇一偶， 
且偶数能被4整 
除，弦数被4除余 
1。这里为了便于叙 
述和理解，规定勾 
数 a 是奇数，股数 
b 是偶数。 

计算勾股弦数 
组有两组公式，一 
组是： 


b =2 x ! x 2 , a = | xi 2 - x 2 2 | , c = x 1 2 + x 2 2 
其中 Xl 、 x 2 必须是一奇一偶且互质。根据这组公式编 
出程序一，203行输入 N 值不必过大， N =8 就打印数 
表一的 数据; 另一组是 

a = yiy 2 » b = ( yi 2 - y 2 2 )/2， c = ( yi 2 + y 2 2 )/2 
其中 y :> y 2 ，必须都是奇数阜互质。根据这组公式编出 
程序二。例如223行中输入 M =12 就打印出数表二的 
数据(略)。 

程序三是按勾数从小到大顺序打印数表三(略)的 
程序。程序四是按股数从小到大顺序打印数表四(略） 
的程序。程序五是按弦数从小到大顺序打印数表五 
(略)的程序。程序六是随意计算一组勾股弦数组程序， 
若271行输入 G = l ， 则运爷到275行输入一个勾数 
(奇数)，程序给算出股数和 弦数; 若271行输入 G =2, 
则运行到277行输入一个股数 (4 K 型），程序给算出勾 
数和 弦数; 若271行输入 G = 3, 则运行到279行输入 
弦数 (4 K +1 型,且不含 4 K +3 型因数),程序给算出勾 
数和股数。 

从数表中数据看出，每一组勾股弦数组，都有含因 
数3、4、5的数，这容易用数学证明。 

本程序是根据《初等数论》知识，用勾股数组的两 
组公式&勾股数组性质编写的,并且是用素数判断是 
否互质，省略了大量的不必判断的数据，因此运行较 
快。从不同角度编出程序，便/于掌握勾股数组的特点和 
计算方法。 " 

程序一 

200 REM GOU GU XIAN SHU ZU 1 

201 LPRINT TAB (10)" B ^ 2 + A * 2 = C ' 2 1 

1989. 12” ： LPRINT 

202 LPRINT “ B =2 * XI * X 2 A = X 2* 2- X 1 ' 2 C = 
X 2 ' 2+ X 1 7 2 " 

203 LPRINT : INPUT “ N=，%N : RESTORE 

205 FOR XI = 2 TO N STEP 2 : FOR X 2= 1 TO N 
STEP 2 

207 READ P : IF P > X 1 THEN 213 
209 IF INT ( X 1/ P )= X 1 /P AND INT ( X 2/ P ) = X 2 /P 
GOTO 217 
211 GOTO 207 

213 B =2 * XI * X 2 s A = ABS ( X 2 ' 2- X 1 ^ 2) ： : C 

= X 2 ~ 2+ Xl *、2 

215 LPRINT TAB ⑷ B ； TAB (14) A S TAB (24) C 
217 RESTORE : NEXT X 2 : LPRINT : NEXT XI : 







END 

程序二 

220 REM GOUGU XIAN SHU ZU 2 

221 LPRINT TAB(52) “A 八 2 + B" 2 = CT 2 2“ ： 
LPRINT 

222 LPRINT TAB (38) “A = Y1 * Y2 B= (Y1 ^ 2-Y2 
^ 2)/2 C=(YK 2+Y2 A 2)/2” ： LPRINT 

223 INPUT “M = ”;M : RESTORE 

224 FOR Yl = 3 TO M STEP 2 : FOR Y2= 1 TO Y1 
STEP 2 

225 READ P : IF P>Y2 THEN 228 

226 IF INT(Y1/P)=Y1/P AND INT (Y2/P = Y2/P 
GOTO 229 

227 GOTO 225 

228 A=Y1*Y2 : B=(YK 2-Y2^ 2)/2 : C=(YK 
2 + Y2" 2)/2 : LPRINT TAB(42) A,TAB(52) 
B,TAB(65) 

229 RESTORE * NEXT Y2 * LPRINT : NEXT Y1 : 
END 

238 DATA 3,5, 7,11, 13,17, 19,23, 29, 31 ， 37, 41, 
43,47,53,59,61,67,71,73,79,83,89,97 

程序三 

240 REM GOU GU XIAN SHU ZU 3 1989. 12 

241 INPUT “N=，、N : G = 0 : LPRINT TAB(9) “A △ 
2-fB^ 2=CT 2 3 W ：LPRINT 

242 FOR A=3TON STEP 2 : Q==INT(SQR(A-1>) 

243 FOR X=1 TO Q STEP 2 : Y = A/X : RESTORE 

: IF Y<>INT(Y) THEN 248 

244 READ P : IF P>X THEN 247 

245 IF INT (X/P)+INT(Y/P)=X/P + Y/P THEN 
248 

246 GOTO 244 

247 B=(Y 八 2-X^ 2)/2 : C=(Y 、 2+X A 2)/2 : 
LPRINT TAB(6) A,TAB(14) B,TAB(24) C 

248 NEXT X：IF G = 1 THEN 271 

249 NEXT A : END 

程序四 

250 REM GOU GU XIAN SHU ZU 4 

251 INPUT “N=N G=0 : LPRINT TAB (49) W B 

^ 2+A △ 2=CT 2 4“ ： LPRINT 


252 FOR B=4 TO N STEP 4 : T=B/2 

253 FOR X=1 TO T-l STEP 2 : Y=T/X : RESTORE 

: IF Y<>INT(Y) THEN 258 

254 READ P : IF P > '本 THEN 257 

255 IF INT(X/P)+INT(Y/P)=X/P + Y/P THEN 
258 

256 GOTO 254 

257 A = ABS(Y ^ 2 — 2 : CW 2 + X " 2 * 

LPRINT TAB(46) B,TAB(54) A;TAB(64) C 

258 NEXT X：IF G = 2 THEN 271 

259 NEXT B : END 

程序五 

260 REM GOU GU XIAN SHU ZU 5 

261 INPUT : G = 0 : LPRINT TAB(9)“A 一 

2+B ， 2=CT 2 5” ： LPRINT 

262 FOR C=5 TO M STEP 4 : Q=INT(SQR(C-4)) 

263 FOR X= 1 TO Q STEP 2 : Y = INT(SQR(C-X * 
X)) : RESTORE I IF X * X + Y * Y<>C THEN 
268 

264 READ P ： IF P>X THEN 267 

265 IF INT(X/P)+INT(Y/P) = X/P + Y/P THEN 
268 

266 GOTO 264 

267 A=ABS(Y^ 2-X A 2) : * X * Y : LPRINT 

TAB(6) A ； TAB(14) B,TAB(24)C 

268 NEXT X：IF G = 3 THEN 271 

269 NEXT C : END 

程序六 

270 REM GOb GU SIAN SHU ZU 6 

271 INPUT "A=1/B=2/C=3%G:IF G = 0 THEN 
END 

272 IF G<1 OR G>3 GOTO 271 

273 IF G = 3 THEN 279 

274 IF G = 2 THEN 277 

275 INPUT "A= :" ； A S IF INT (A/2) = A/2 THEN 275 

276 Q=INT (SQR(A-l))：GOTO 243 

277 INPUTINT (B/4)<>B/4 THEN 277 

278 T=B/2: GOTO 253 

279 INPUT W .C= W ,C；IF INT ((C-1)/4)<>(C-1)/4 
THEN 279 

280 Q=INT (SQR(C-4))：GOTO 263 
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APPLE 机汉字字模压缩的研究 

北京九中学生杜晓梦 



目前国内流行的几个汉字系统，一般都配有二级 
字库。但是，近七千个汉字竟需两面软盘来存储，实在 
有些浪费，笔者经过一段时间的研究，将一、二级字库 
合存于一面盘中。下面介绍一级字库的压缩方案。 

目前汉字系统所用的汉字，多采用 16X16 点阵， 
由于 APPLE 机硬件的限制，每字节显示时需有一点为 
颜色点，使其一次只能显示7个点，这样16个点(水平 
方向)需三次才可显示完，降低了速度。又由于压缩时 
使用了数据的最高位。因此，本方案采用 14X16 点阵 
的汉宇，不但可以压缩，而且还加快了速度，只须两次 
即可显示完一个水平行。省去了三分之一的时间，因 
此，我认为, APPLE 机的汉字系统，都应趋向于 14X16 
点阵的字。 

对于每一个图象位元，除去最高位(第7位)之外， 
其余7位与屏幕上7个点的位置顺序恰恰相反，因此 
给位元图象编码时，应用相反的顺序。 

用图一所示的“正”字为例，编码顺序为先从左 



图二 


部7个点由上至下编16个水平行。再从右部由上至下 
顺序编排,一共是32个字节的数据。为了便于压缩，此 
字采用等线体。由于汉字大都是方块字，因此采用竖直 
压缩法效率会更高一些。对于一个点阵中的7个点，可 


用如下方式直接得出编码，如图2所示，将七个点按0 
〜6顺序标好，左四色分别代表1、2、4、8(十进制），右 
四位分别代表10、2_0、40、80、按照7个点的点亮与否 
求出其值即可，图2中7点的数据即为$ 76。 

从“正”字点阵结构及其后边的数据可以发现，数 
据有几处重复，压缩即从重复处下手。因为我们将颜色 
位舍去不用(定为 0) ，因此所有数据值均小于$ 80。这 
样对于一组重复数，我们可以将其缩为两个位元表示， 
最多可将127个相同数据压缩为两字节。其方法如下。 
如果某一数重复次数为5次，如40、40、40、40、40，我 
们可用$85、40来表示，同样,7个48可压缩为$87、 
48,在$85, $87中，我们用其中的最高位来区别计数 
值与数据，因为计数值最高位为丨，而真正数据的最高 
位为0,在汇编程序中可用判断一数是否为负来判断。 
6502汇编中规定一数最高位为1时该数为负数。这样 
区别是比较方便的。其中的5、7代表重复数据的个数， 
真正的数据就是85、87后的40、48。这样最多可以处 
理127个相同数据，但由于一个汉字点阵的信息只有 
32个数据，因此对于任一汉字，只要有重复数据，无论 
多少个都可以用两个字节表示。比如一个空白字，在正 
常时仍需用32个00来表示，在此只需用 $A0、00 两 
个字节来表示，大大地节省了内存和磁盘空间。但是， 
如用两个字节表示原有的一个字节，是很浪费的，比如 
说用$81、00代表一个00;或者用两个字节表示原有 
的两个字节，比如说用$82、08来代表08、08,虽然内 
存数不变，但是对于处理上速度要慢一点。因此，在压 
缩时，还要判断数值的重复次数是否大于2,如果大于 
2就压缩，不大于2就不进行压缩。 

象图一中的“正”字原有数据如表一所示，压缩后 
数据如表二所示，减少了十四个字节。表二末尾的 
$FF 码是为了建库时方便分界而加上的。 


表 — 


00 

7E 

40 

40 

40 

40 

40 

48 

48 

48 

48 

48 

48 

48 

7E 

00 

00 

3F 

00 

00 

00 

00 

00 

1F 

00 

00 

00 

00 

00 

00 

3F 

00 


(下转29页) 
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利用级数展开 
式的前几项计算近 
似值时，往往要用 
N ! 的位数 M 估计 
精确度。反之，若预 
先给出精确度 

jjs ， 则要根据 M 

确定所须取的项数 
N 。 文件①中用 

M=INT(LOG(N)XN) (1) 

计算。然而这个公式与准确值相差太大，而且差数无一 
定规律。例如 N =10, M =23, 比实际的七位大两倍多； 
当 N =100 时, M =460, 比实际值158大一倍多，即使 
是改用 

M=INT(LOG(N)/LOG(10))XN (2) 

当 N =10 时， M =10, 比实际值大3;当 N =100 时 ， M 
= 200,也比实际 1 值158大42。 

倘若先计算 N ! 的准确值，然后统计其位数，又太 
花时间，也没有必要。为此，笔者拟定了一种求 N ! 的位 
数准确值的方法。（不必求 N ! 的准确值） 

- N ] 位数准确值的快速计算 

以前有过要计算 2 的多少次方是 1988 ……时，使 
用了每次乘以2后取积的左边八位（第九位四合五 

入），然'后再乘以 2 的方法，当左起四位是 1988 . 

时，输入出乘以 2 的次数，结果为 7183 。 

这种方法，我曾怀疑其正确性，但我用计算2 183 的 
准确值的方法验证了其正确性。由此得到启发，计算 
N! 的位数也可采用类似的 方法: 每次乘于一个自然数 
后都取积的左边五位，第六位四含五入,再与下一个自 
然数相乘，累加乘积增加的位数。求积的前四位的准确 
值尚且不受影响，这里求积的位数，理应更不受影响 
了。为此，编写了程序1,用这种方法计算 N ! 的位数， 
并将它与求 N ! 的准确值后统计所得位数相比较，结果 
完全相同。笔者将程序 1 运行到 1050! (2719 位)都毫 
无差错。 

但是，作为计算近似值时确定所须项数 N 时使用 
这种方法即程序1中150行的方法，还是嫌时间太长 
了点，计算450!的位数 （1002 位)要50秒时间。为此， 
又拟定了一个近似公式。 

二计算 N ! 的位数的近似公式 

仿照自然数列前几项和的公式 

(1+N) • N 
= ^~~ 

并设 N ! 〜 10 M ， 得 


N! 〜 10 M & 
2+N\ N ~ 1 
~ 2 ~) 

或 M « s ( N - l ) lg ^^ 
(3) 

将这个公式与准确值 
比较，给出 N 在不同 
区间上 M 的修正值。 
得到了用 BASIC 表 
达式表示的求 M 的 

近似公式 

M=^LOG((N+2)/2)/LOO(10) * (N-l)-INT((N-23) / 
10) * (N>23) * (N<81)-INT(N/10) * (N>80)- 
INT((N/100-1) * 3) * (N>200)-(N> 1000)-(N> 
2000)-(N>2500)-(N>3100) * 2 (4) 

程序 2 就是将这个公式与快速计算 N ! 位数准确 
值的方法进行比较的程序，所得结果如下： 

只有当 N = 9 和 N =9 Q ' 时，比准确值少一位 | 

当 N =10~89 时，少数相同，多数比准确值大1; 
当 N =91~1411 时，少数相同，多数比准确值大1 

〜3; 

当 N;1412 〜2101 时，大 2 〜 5; 

当 N = 2102〜2800 时，大 3 〜 6; 当 N = 2801 〜 
3101 时，大 4 〜 7; 

当 N=3102 时，大 2; 

当 N=3103 〜3249 时，大 3 〜 5 。 

因为450!为1002位数，3248,!为9998位数， 
32491为10001位数。几千位数才多三、五位，六、七位， 
对近似计算来说,没增加多少工作量，因此，用公式 (4) 
计算 N ! 的位数从而确定级数计算的项数 M 完全能满 
足要求，而且速度快。用程序2可以计算 N ! =3600!大 
约11100位数。用对半法解方程 (4), 求出 N 的值，不 
论 M 多大都只须几秒钟时间。 

为了说明式 (4) 的用处，我们举一例。 

三计算 e 的值到任意位 
利用级数展开式 

e=1 ««+ •…“ (5) 

的前几项和计算 e 的近似值,其误差不超过 


(n-1) • (n-l)J 

程序 3 就是用公式 (5) 计算 e 的精确到任意 M(9 
< M <11100) 位近似值的。 

5 行输入要求的位数。 6 —17 行根椐所需计算的位 
数 N 用对半法解方程确定公式 (5) 中所须项数 M 。 
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由于式 (5) 左边前两项和为2,其余各项和小于1， 
所以 e 的整数部分直接打印。 

程序 3 中使用数组 A(J)(J=1,2,3, …… N+3) 存 
放第 I 项小数后各位上的数字。 用数组 B(J) 累加前 I 
项各位上的数字和，当然不是简单累加，而是有进位则 
进位的累加。 

由于 (5) 式右边第3项的值为 0. 5,所以直接将这 
个数提供给 A ( l ) 和 B ( l )， 作为初值赋值。而 A (2 )，A 
(3)，…… A ( N +3) 及 B (1)， B (2)， …… B ( N +3) 的初始 
值都是零。 

为了确保倒数三位数字准确，40行及105行 FOR 
语句的循环终值定为 N +3。 

本程序在紫金机上通过。求 e 的 30 位小数近似值 
只须〗分钟。求 160 位值也只须 22 分钟。 

程序1: 

0 REM QIU,BIJIAD N ! WEISHU 89/4/14 
5 P=40320 : Ml = 5 : E=1E5 
10 DEF FN F(N) = INT (LOG (N) * N) + 2 : M = FN 
F(3600) 

30 DIM A(M/5+l) : A(1)=P 
40 FOR 1=9 TO 3600 : D=0 
50 FOR K~1 TO FN F(I) / 5 
55 A(K)=A(K) * I-fD 
60 D=INT (A(K)/ E) 

70 A(K)=A(K)-D*E 

80 NEXT K 

90 FOR R =K TO 1 STEP - 1 

100 IF A(R) = 0 THEN NEXT R 

130 L=L-}-LEN (STR$ (A(R))) + (R-1) * 5 


6 FOR 1 = 9 TO 1E37 : P = P * I : P $ = STR $ (P) 
: P= VAL(LEFT$ (P$ ， 6)) : P= INT((P+5)/ 
10) : Q=LEN (P$ ) ： M=M+Q-5 
10 A=LOG((I + 2)/2)/Ql * (I-l)-INT((I-23)/lO) 

* (I>23) * (I<81)-INT(I/10) * (I>80)-INT 
(a/100-1) * 3) * (I> 200)-(I> 1000)-(I> 
2000)-(I>2500MI>3100) * 2 

15 PRINT ”I=”I” ， M= ” M” A-M= ,, INT(A-M) 

20 NEXT 
程序 3 

0 REM QIU e DAONEMYIWEI89. 3. 25 

5 INPUT ”N= ”, N : IF N<9 THEN 5 

6 I =1800 ： A=9 : B=3600 : P=LOG(10) 

8 M = LOG((I + 2)/2)/P * (I-1MI/10) * (I>80)- 
(I>200) * (1/100-1) * 3-(I>23) * (INT(I-23) / 
10) * (I<81) 

10 IF M-N<2 AND M>N THEN 20 

15 IF M>N THEN B=I t GOTO 17 

16 A = I 

17 I=(A+B)/2 : GOTO 8 

20 DIM A(N + 4) ， B(N + 4) : A(l) = 5 : B(1)=A 
(1) 

30 FOR 1=3 TO M+2 
40 FORJ=lTON+3 

60 C = A(J )： IF A(J) /I<1 THEN A(J+1) = A(J) 

* 10+A(J+1) : A(J) = 0 : GOTO 100 
70 A(J)=INT (A(J)/I) 

75 A(J+1)=C* 10+A(J+1)-A(J) *1*10 
100 NEXT J 


150 P = P* I ： P$ =STR$ (P)：P = VAL(LEFT$ (P 
$ ， 6)):P=INT((P+5)/10):Q=LEN(P$ ):M 
= Ml+Q-5 

160 PRINT M I= W , L=” ； L” Ml-L= •” INT (M1-L)：L 

= 0 


105 FOR J=1 TO N + 3 : B(J) = B(J)-f A(J) * IF B 
(J)<10 THEN 110 

106 B(J)=B(J)-10 : B(J-l) =B(J-1)-H 
110 NEXT J 

115 NEXT I 


170 NEXT I 120 PRINT w e=2. w j ： FOR 1=1 TO N ： PRINT B 

程序 2 (I), ：NEXT 

5 P= 40320 : M = 5 * Q1=LOG(10) 




(上接 27 页） 

表 二 


00 

7E 

85 

40 

87 

48 

7E 

00 

00 

3F 

85 

00 

1F 

86 

00 

3F 

00 

FF 








在还原压缩后的数据时，只需判断数据是否大于 


$80, 大于 $ 80 就将下一个数据重复，此时应用一个 
指针来计数。不大于 $80 就直接将其做为原数据。当 
指针指到 33 时，则表示还原完毕。 

用上述 方法，读者即可自己造出等线体的 14X16 
点阵的一级压缩字库，理论上可节省 40% 〜 50% 的空 
间。对于二级字库因为其字形繁琐，不易采用此种方 
法，具体方法将在以后介绍。 
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• 苹果园 彳地 • 


生物反馈益測器 

南京外语学校 王国忠 



生物反馈监测器是把你的感觉显示在屏幕上，并 
引导你朝有益于你健康的方向努力。通过你逐步掌握 
的自我调节方法，你将可以控制身体里的不良感觉，更 
好地学习，工作和生活。 

【原理】 

现代医学发现，人的身体和心理状态与人体皮肤 
电流特性曲线有着密切的关系。这个特性曲线称 CSR 。 
在非医学术语中，我们简单的称之为皮肤电阻。过度的 
劳累、紧张、激动和身体里的其它一些不适会降低你的 
皮肤电阻。而放松、平静、愉快等良好的感觉则又会使 
你的皮肤电阻升高。所以我们就利用这个原理来显示 
你的身心处在怎样的状态之下。然后我们利用一台计 
算机来对你进行分析和引导，使你进入一种无忧无虑 
的精神状态，从而达到身心的调节作用。这种引导有些 
象中国的气功，通过意念的作用使自己入静，以达到修 
身养性、强身健体的 目的。 



图一 


【电路】 

监测器的电路原理如图一所示。它是由一块 555 
时间集成电路构成的数字脉冲发生器。它的脉冲输出 
是由 R,,C, 和呈现在测试电极 A 、 B 之间的皮肤电阻共 
同产生的。由于 (^ 和 !^ 都是常数，所以脉冲宽度的变 
化就由 A 、 B 之间的皮肤电阻共同产生的。由于(^和 
R, 都是常数，所以脉冲宽度的变化就由 a 、 b 间的皮肤 
电阻的变化决定。这个数字脉冲发生器与计算机的打 
印接口 (LPRINT1) 相连接。计算机通过这个接口接收 
人体信息，并由一段 BASIC 程序的操纵下对这个信息 
进行处理。处理的结果显示在屏幕上。注意 , LPRINT1 
接口里有许多输入输出线。这里只用到 11 、 16 、 20 脚。 


监测器由 2 节 5 号电池供电。 

【安装】 

监测器的安装十分简单，全部元件装在一小块线 
路板上，连同电池座装进一个塑料小盒中。盒盖上贴二 
条 50XI 5mm 的铝箔作为测试电板，并通过软线将其 
接在电路里。监测器通过一只连接器 (PL1 ) 插在打印 
接口上。 PL1 的 I 6 脚接 1C 的 2 脚。 PU 的丨丨脚接 1C 
的 3 脚， PL] 的 20 脚接地。 

全部安装好以后，仔细核査无误后，将 PL 〗 插入 
计算机打印接口。先合上监测器电源，再打开计算机电 
源。将 BASIC 程序键入计算机。当程序运行时，显示屏 
上会出现图二的显示。这是一个相当于温度计一样的 
“ 感觉计 ” 。其顶端表示你的身心状况最差，底部表示感 
觉良好，中间则为你开始监测时的平均状况。“感觉 
计 ” 的中间有一个 ^ 可以上下移动的游标，它可指示你处 
的状态。至此你可以开始自我监测了。 

bad r I 


AVERAGE . 


GOODj^_I 

图二 

【监测】 

完成上面的工作以后，把你的食指与中指分别按 
在电极 A ， B 上 ( 亦可用其它手指）。注意测试时应将自 
己完全放松，并保持手指与电极 A ， B 间的压力不变。 
否则会影响监测效果。放好手指后，按字幕要求输入 
“ENTER” ， 使机器进入监测状态，字幕会变成 INI¬ 
TIALIZING ” 并 听到 “ 哔 ” 的一声。不久字幕又会变成 
"PRESS C TO END TRIAL” 。 这时 “ 感觉计”当中的游标 
会根据你身心状态向上或向下移动伴随着 “ 哔，哔 ” 
声。 “ 哔，哔 ” 声的频率也可以指示你的感觉。这时你要 
努力集中你的思想，用意念控制自己，使你的身心完全 
放松下来 , 进入自我调整。使游标降 下来。 要说明 一下， 
如果发现游标运动的太快或太慢，从可以修改程序中 
200 行里 “IFX< 100” 中的 “ 100 ”。因为游标太快会使你 

) 
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无法观察并调整自己的感觉。这时应将 “100” 换成更大 
的数，直到满意为止。反应太慢就换成小于 “100” 的数。 
当游标降到最低点时，表示你目前的状况已达到最佳。 
计算机将结束 监测。 字幕会变成 “TRIAL 
COMPLETED” (监测完成）。如果你想继续进行监测可 
以再输入 “ENTER ”。 如果在监测期间想终止的话，可 
输入 “ESCAPE” 即可停止监测。 

经过一段时间的练习，你可以很快的用意念来调 
整自我感觉。每天做几次可以使你的身心保持在最佳 
状态，达到修身养性、防病祛病的目的，当然这并不意 
味着不需要药物和医疗仪器，但它还是一种很好的保 
健仪器。另外它还有许多其它有趣的用途。如测谎实 
验，为病人诊断病情(当然要与一定的中医知识相结合 
才行)等等。我相信你在实验当中一定会发现许多其它 
有趣的用途。 

1 REM * * PC BIOFEEDBACK MONITOR PROGRAM 
10 CLEAR : DEFINT G,X : G = 0：X = 0 * DEFSTR 
A，B : A = CHR$ (232) : B=SPACE$ (2) 

20 COLOR 0,6,6 * CLS * KEYOFF : WIDTH 80 * 
DIM L(22) 

30 DEF SEG = 64 * PA = PEEK (8) + 256 * (PEEK 
(9)) 

40 IF PA=0 THEN COLOR 7,0,0 : CLS : GOTO 430 
50 A = CHR$ (232) : B = SPACE$ (2) : G = PA+1 
： L=13:T=PA+2 : LOCATE1,23,0 
60 PRINT STRING $ (5,1$) , “P. C. BIOFEEDBACK 
MONITOR w ,STRING $ (5,17) 

70 LOCATE 2,37 * PRINT CHR $ (201); STRING 
$ (5,205) ； CHR$ (187) 

80 FOR I = 3T022 : LOCATE1, 37 : PRINT CHR 
$ (204),B,A,B,CHR$ (185) : NEXT ， 

90 LOCATE23, 37 : PRINT CHR $ (200 )； STRING 
$ (5,205) ； CHR$ (188) 

100 LOCATE3,31 : PRINT“BAD”;CHR $ (206) 

110 LOCATE13, 29 : PRINT “ AVERAGE ”, CHR 
• $ (206) 

120 LOCATE22,23 : PRINT 44 GOODCHR $ (206) : 
PLAY“L64” 

130 FOR I = 3T022 : LOCATEI,40 : PRINT “” 

131 P $ =“N” + STR $ (60-1 * 2) : PLAY P $ : 
NEXT I 

140 FOR I = 22T013 STEP-1 : LOCATEI，40 : PRINT 
A : P$ =“N”+STR$ (60 = 1* 2) 

150 PLAYP $ : LOCATEI，40 : PRINT “”： NEXT 
ILOC ATE13,40 : PRINT A 
160 LOCATE24 ， 22, 1 PRINT “PRESS 〈 ENTER〉TO 


BEG IN, OR<ESC>TO END". 

170 AA = INPUT$ (1) ： C = ASC(AA) ： IF C = 27 
THEN200 ELSE IFC<>13THEN 170 
180 LOCATE24,22,0 : PRINT SPACE $ (42) 

190 LOCATE24,34 : PRINT “INITIALIZING... ： 

Y=0 : PLAY“L64” ： XF=1 
200 GOSUB320 : IF X<100THEN XF=XF+ 1PLAY 
“L63 ， N32” ： GOTO200 

210 FOR I=1T05 : GOSUB320 : PLAY“L64 ， N34” ： 
Y=Y+X : NEXT I 

220 Y=Y/5 : INC=Y/100 : LOCATE24,28 : PRINT 
“PRESS<ESC>TO END TRIAL. ” ； 

230 PLAY “L23” ： LOW = Y=10 * INC : FOR 1 = 
3T022 : L(I)=^X)W+(I-2) * INC * NEXT 
240 REM* * MONITORING 

250 P$ =“N”+STRING$ (60-(L* 2)) : PLAY P$ 
s IFX = 0THEN360 

260 AA = INKEY $ ： IF AA<> “” THEN C= ABC 
(AA) : IF C=27THEN370 
270 GOSUB 320 

280 IF X>L(L)THEN LOCATE L,40 : PRINT “” 

283 L=L+1 : IFL=22THEN 370 ELSE LOCATE L, 

40 : PRINT A 

290 IF X<L(L)THEN L=L-1 : IF L<3THEN L=3 
ELSE LOCATE L+1 ， 40 
295 GOTO 50 ELSE IF C<>27 THEN 390 
300 GOSUB 250 

310 REM * * SAMPLING SUBROUTINE 

320 X=0 : Z=0 

330 OUTT，0 : OUTT,4 

340 X=X+1 : IF(INP (G) AND 128) = 0 THEN 340 
350 Z = Z+1 : IF Z〈XF THEN 330ELSE LOCATE 1, 
60 : PRINT X, s RETURN 
360 REM* * TRIAL END 
370 LOCATE13,B,l 

380 PRINT“TRIAL COMPLETED. PRESS<ENTER> 
TO TRY AGAIN, OR<ESC>END w , 

390 AA = INPUT $ (1) * C = ASC(AA) * IF C = 
13THEN CLS 

400 COLOR7,0,0：CLS ： LOCATE10,28,1 
405 PRINT “MONITORING SESSION OVER” 

410 LOCATE13，l : END 

420 REM * * CAN NOT FIND STANDARD PRINTER 
PORT 

430 LOCATE10,27，1 PRINT“PRINTER PORT 1 NOT 
AVAILABLE” ： PRINT：END 
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本文介绍一种在文件名中加入 ASC I 码中未定义 
字符 $9F 的方法 a 使该字符存于磁盘目录区中，如 
果没有更改文件名的软件，则无法知道究竟在文件名 
中加入了什么字符，更无法将其调出。因为字符 $9F 
不仅不会在屏幕上显示而且不能由键盘产生。 

— 、加密原理 

在 APPLE 机的 DOS3. 3 中，有一个键盘接收程 
序，入口地址为 $9FCD 。 当我们从键盘输入一个直接 
命令并回车后，如果该命令不是 BASC 语言的直接命 
令 , BASIC 解释程序把处理权交给 DOS 处理，转入入 
口地址 $9FCD 。 它先把从 $0200 开始的键盘缓冲区 
内的字符进行整理 , 然后对命令进行判别，参数处理， 
并转入各命令处理程序,如果该命令有错误则给出错 
信息。这里送到键盘缓冲区中的 ASCII 码不是机内常 
用的 ASCII 码，而是显示 ASCII 码，且只是显示 ASCII 
码中的正常显示字符和控制字符部分，其它字符则不 
能从键盘输入。 


当我们 键入 : SAVEuFZM 后，键盘缓冲区内的格 
式为： 


地址 （$) 

200 

201 

202 

203 

204 

205 

206 

207 

208 

字符 

S 

A 

V 

E 

空 

F 

Z 

M 

： CR ： 

显示 ASC I 码 

D3 

Cl 

D6 

C5 

A0 

C6 

DA 

CD 

8D 


如果在 SAVE 命令 ' 的文件名中加入字符 $ 9F , 把 
这个文件名存入磁盘目录区中，则在文件目录列表时 
不显示这个字符。因此，如果采取某种方法把上述键盘 
缓冲区的内容中加入 $9F ， 如形成下面的 格式： 


地址 （$) 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

字符 

S 

A 

V 

E 

空 

F 

无 

Z 

M 

: CR ； 

显示 ASC I 码 

D3 

Cl 

D6 

C5 

A0 

C6 

9F 

DA 

CD 

8D 


则在 CATALDG 列表时，列出的文件名为 FZM 。 

二、加密方法的实现 

要将上述修改后的格式送入键盘缓冲区，不能使 


用直接键盘输入的方法，而需采用 CTRL — D 的方法， 
即把 DOS 命令放在 PRINT 语句中，并在 DOS 命令保 
留字前加上 CTRL—D 字符。 CTRL-D 字符可用 CHR 
$ (4) 代替。如送入上述修改后的格式，可在键盘 输入： 
PRINT CHR $ (4);“SAVEuF，，;CHR $ (159), “ZM” 
[CR] 其中 CHR $ (159) 即为字符 $ 9F 。 

为了便于读者输入各种复杂的文件名，笔者用 
BASIC 语言编写了一个小程序。当需要在文件名中加 
进字符 $ 9F 时，（加入非 $ 9F, 需重新修改程序中的 A 
$ ) ，只需把这个小程序放在自己的应用程序后面，键 
入 GOTO 63992, 然后根据提示输入文件名，在某一字 
符后需要加入 $9F ， 这时就按一下号键。如果文 
件名中需要加入控制字时，同样可在文件名中打入控 
制字，这就进一步增加了解密的难度。 

当需要对含有字符 $ 9F 的文件进行 RUN ， LOAD ， 
DELETE 等操作时只需把程序中的 SAVE 改为 RUN ， 
LOAD’DELETE 。 

63991 END 

63992 C$="":A$=CHR$ (159) 

63993 INPUT "FILENAME ： ^ ： B$ 

63994 FOR T= 1 TO LEN (B $ ) 

63995 D$ =MID$ (B$ ， T ， 1) 

63996 IF D $ =" * "THEN C $ =C $ + A $ : GOTO 
63998 

63997 C$tC$+D$ 

63998 NEXT 

63999 PRINT CHR $ (4) ， SAVE" ;C $ 

以上讨论的加密方法只是对文件名而言，如果再 
结合其它一些加密方法就更胜一畴。例如： 

(1) ：POKE 1010,105：POKE 1011,255 

把 CTRL—RESET 设置成重新热启动。 

(2) ：5 ONERR GOTO 63980 


63980 CALL 50688 

这两句程序可把 CTRL-C 设置成重新启动。 

(3) ：POKE 50,159 

使 APPLE 机的屏幕输岀失效。可用 POKE 50, 
255 恢复正常输出。 

(4) ：POKE 214,0 

使 APPLE 机的 LIST 命令失效，除 DOS 命令外 
任何命令，不论是否错误都解释为 RUN 。 可用 
POKE 214,128 恢复。 

(5) : 螺旋轨，半轨，更改磁盘扇区地址域标志等方 

法。 / 
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如何有效地开展计算机教 W 活动，搞好计算机教 
学，这是我国教育界亟待探讨的一个新 • 

i 果题。 ^ 

几年来，我们在教学过程中深深体 g 
会到，学生知识的获取，能力的培养，智 % 

力的开发，不可能只依靠一种教学法，只 m 
采用一种固定不变的模式，而应根据教 ^ 

学的内容，教学的对象，教学的环境，教 
学的条件的不同而有所区别。因此课堂 
教学必须根据计算机学科的特点，从实 
际出发，博釆众教学法之长，按学生的年 
龄，心理特征，将合适的若干教学法(讲 
授法，谈话法，发现法等)有效地合理地 
综合起来。启发式综合教学法正是根据 
这样的要求，坚持启发式原则，坚持学生 
上机操作，阅读课文为主，合理地综合地 
运用多种教学法来组织课堂教学活动的 
一种科学方法。它强调了通过学生实践 
活动(上机操作;讨论、自学等)来调动学 
生的学习积极性，来培养学生的学习能 
力，切实体现了以学生为主体，以教师为 
主导的精神原则。 

启发式综合教学法整个体系包括四 
个环节，下面以我校初中 LOGO 语言教 
学实践为例分别谈谈这四个环节。 

一、教学的第一环节是课前准备，主 
要是教师要吃透教材;另一方面是深入 
学生，集中学生中的问题， r 解学生的难 
点、疑点、缺点(指知识的缺漏)和兴趣爱 
好，做到课前心中有数，然后确定上课的 
教学方式，准备教具。 

关于教学方式，我们是根据不同的 
教学内容而采用以下两种教学方式。 

1、传统讲授法。 

讲授法是以“教师为主导”的原则， 

充当知识领域的导游；以“先入为主”的 
原则，避免学生由于自己的摸索而走曲 
折的路径，使学生产生正确的“第一茨代 
表点”。同时，根据赞可夫的高变原则，教 
师可以在四十五分钟内向学生输入大量 
的信息。讲授法由教师系统地、完整地讲 
述新课内容，以例题为中心，配以一定比 
例的课堂练习，课外作业。讲授法我们把主要精力放在 
备课上。 


2、上机实验法. 


中 











实验法是根据学生的心理个 
别差异而“因材施教”的原则。在 
实验法中，学生除了眼、耳，还动 
手操作计算机，依据了“接收信息 
感觉无与接收信息成正比”的原 
理。由于计算机对人的反馈瞬时 
性，学生可以通过机器对人的反 
馈，采用不同的方法，使整个学习 
过程呈现负反馈状态。由于在实 
验法中学生学习是相对主动的， 

. 根据“学习主动性”效应，效果是 
比较满意的。由于实验法中本身 
对学生提供了一定的感性认识， 
无疑对知识的记忆呈现较好的保 
持曲线形状。 

实验法由教师准备上机卡 
片。学生按卡片提示进行操作，同 
时在上机报告上填写相应的内 
容。这个过程实质是学生请教计 
算机，计算机履行了教师的部份 
职能。学生在碰到困难时向教师 
提问，凡教师认为该问题可以由 
计算机回答的就不从正面给予解 
J 答，尽量让计算机答题，使学生在 

省 思索-判断-人机对话- 

福再思索——再判断的周而复始的 
^ 思维活动中进行学习，印象十分 
T 深刻。 

实验法我们主要把精力放在 
倪 卡片制作上，在卡片上拟定好提 
J 示语及操作要求，设计“陷井”，让 
+ 学生从而加深理解，从而掌握知 
识。 


二、教学的第二个环节是设 
H 疑引导、激发兴趣。其目标不仅是 

使学生通过阅读课文，上机操作 
学习知识，而且还将使学生学会 
质疑、探讨。 

考虑到电脑学科是选修课 
程，如不加以正确引导，很可能使 
学生敬而畏之。但我们看到，我国 
现在初中生年龄一般在13、14岁左右，正值少年向青 
年过渡进期，他们思维敏捷，求知欲强，易于接受新鲜 
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事物，富有上进心和探索精神。所以我们在教学中必须 
迎合学生的心理特征，千方百计设法培养学生的兴趣， 
激发他们求知欲望，是搞好计算机教学的内在力量。而 
培养兴趣，我们主要是通过设疑引导这个渠道进行的， 
具体采取如下几个 措施： 

1、 通过电脑软件的演示及游戏等。 

例如我们在讲概论的第一课时，我们就演示了计 
算机猜数，电脑造句等游戏性程序。当学生在屏幕上看 
到海龟画出许多丰富多采的图案和展开不同风味的游 
戏时，他们感到新奇，诧异，他们都怀着强烈的探讨这 
些微机功能和应用的奥密而决心勤奋学习。 

2、 教学与相邻学科相结合。 

在学生掌握了一些计算机语句功能之后，他们往 
往急于想让计算机为他们做一些事(解决一些实际问 
题）。这时候正是培养和提高他们学习计算机知识兴趣 
高潮时刻，抓住这一点，我们从相邻学科中有选择性地 
出一些能充分发挥计算机“特异功能”的题目，用以达 
到提高编写程序能力和复习巩固相邻学科知识的目 
的，同时促进了学生对计算机“特异功能”的浓厚兴趣。 

例如初中己学过二元一次方程，他们感到有些课 
外题很难解，而且就是解出来之后，答案正确与否无法 
核对，针对这个活思想，我们就引导他们利用电脑编程 
求解，进行校验。当他们编写好程序后，只要输入方程 
的三个系数，电脑就显示出正确的解。……由于同其他 
学科相联系，不但帮助学生解决了一些实际问题，使学 
生看到计算机解题的优越性，尝到甜头，兴致倍增，而 
且也培养了学生逻辑思维，创造性思维和应用计算机 
解决实际问题的能力。 

3、 提倡一题多解，鼓励学生的独立见解。 

计算机程序设计变化无穷，教师在教学中应积极 

鼓励学生大胆对程序进行改革创新，以免头脑僵化于 
某一个固定的模式。所以每当我们讲解完一个程序设 
计之后，总是向学生提出这样一个 问题: 本题是否还有 
其他的设计方法？是否还能进行优化？……让学生去 
琢磨、思考。这样不仅培养了学生积极思维能力，而且 
也使学生在编程时感到妙趣横生，其乐无穷。 

总之教学时应不断地设置一些质疑，提出问题，让 
学生去思考。问题越具体，越接近教材，学生就越容易 
产生联想，兴趣越浓，学习的积极性也越高。 

三、教学的第三个环节是辨疑解难，巩固双基。这 
.是教学的中心环节，所谓辨疑解难，就是对一些容易混 
淆，不易理解的概念要阐明述透，决不含糊。在处理这 


例如在一次小测验后，我们发现有许多同学对全 


局变量、局部变量的概念及它们之间的关系搞不清。因 
此我们写了如下程序，问运行 B 过程之后结果是什么? 
让同学们进行讨论。 

To A : Y To B 


MAKE，，X : Y+2 
MAKE，，Y : Y-2 
PR : X PR : Y 
END 


MAKE ”X 2 


MAKE" Y 10 
A : Y 

PR：X PR：Y 


有的说运彳了后结果是12,8,12,8,有的说是12,8, 
2,10,……这时教师并不忙于表态，而是让计算机来说 
话。一经运行，结果是12,8，12，10，同学们看到这个结 
果感到很惊讶，都 问:通 过调用 A 过程后， X 获得新值 
12,而 Y 却仍然是10,没有获得新值。这是为什么呢? 
原因是 Y 以一个输入参数传递给过程 A ， 所以 X 不受 
A 过程的局限，也就是说 X 是个全局变量，在过程 A 
内与出于过程均是一致的。显然， B 过程中 PR : X 打印 
出的值是经过 A 过程第二次赋值后的值12,而不是在 
B 过程中第一次赋的值2。对于 B 过程中的 PR : Y ， 由 
于过程 A 输入参数为 Y ， 所以在 A 过程内的 Y 应属于 
局部变量，它的值出了 A 过程便自动无效。在 A 过程 
外的 Y 应该属于全局变量。因此， B 过程中的 PR : Y 应 
该显示出第一次赋值的数值10,而不是经过 A 过程处 
理后的值8,……这样，学生经过一番挫折、争辩，再听 
了这些讲解之后,就对全局变量和局部变量有了深刻 
的理解和印象。 

2、形象 比喻. 

大家知道，在 LOGO 语言中递归是个重要的概念， 
学生刚接触到这些内容都感到比较困难，特别是书上 
的定义更是抽象。书 上说: “所谓的递归就是把求未知 
结果回归成己知内容进行求解。从 LOGO 角度来讲，我 
们把一个过程调用该过程体本身，称为过程的递归调 
用，相应的该过程就叫作递归过程。”针对学生理解这 
些概念的困难，我们就用生活中有确切体验的东西进 
行浅显的比喻。因此，讲到递归概念时，就先给同学们 
讲了下面的这个 故事： ， 

“从前有座山，山里有个庙，庙里有一个老和尚正 
在讲故事,讲的是 :从前 有座山，山里有个庙，庙里有个 
老和尚正在讲故事，讲得是 :从前 ……” 

很明显，由于这个故事情节里又讲述了故事本身， 


个问题上，我们是通过下面几个途径实现的。 

1、共同探讨. 

共同探讨就是通过学生讨论、争论，去伪存真，明 
辨是非，从而掌握知识。 


所以这个故事是无限地反复下去,类似这种情况，在 
LOGO 语言中我们称之为递归。同学们在听了这个故 
事头脑里有了递归的感性认识之后，再听讲递归程序 
设计课程，就比较容易接受了。 
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3、深入浅出. 

在 LOGO 语言中画树是比较难理解的程序，因为 
它在过程中两次采用逆归调用。我们了解到逆归调用 
困难的焦点是如何处理逆归时的一些参数。所以我们 
在讲这部分内容之前，就化整为零，对症下药地先引入 
堆栈的概念。具体做 法是: 先演示让计算机输出如下程 
序的运行 结果： ' 

TO A ；X 

IF : X >3 STOP 
PR : X 
A : X+l 
PR ：X 
END 

该程序输出的结果是 123321. 同学们对第三语句 
PR : X 的打印结果是无不理解的，但对于第五语句同 
样的 PR ： X 打印的却是321感到难以理解。这时我们 
就告诉同学,在计算机的内部有个叫栈的存贮器，它象 
一个只有一个开口且朝上的盒子(见图）， 



每当逆归调用一次时，计算机就自动把一个一个 
的参数值放人盒子(压栈），当递归完成时计算机又自 
动地把这些参数值逐个取出(弹栈）。根据这个盒子的 
结构不难看出，最后一次放人盒子的东西一定是最先 
取出，这就是计算机中栈的“后进先出”的原理。有了这 
个通俗解释之后,再结合下面图解进行阐述,同学们对 
逆归时参数的处理就比较清楚了，这样就为讲授复杂 
递归打下了可靠的基础。 

四、第四个环节是释疑反馈，发展提高。这是教学 
结构中最后一个环节，也是巩固知识，检验教学效果的 
一种有效方法。 

在这个教学环节里，我们常常通过提出一些较高 
难度，书本上没有提到的问题，让同学们探索,使学生 
在学习过程中的认识发生质的飞跃，促进知识技能向 
能力方面转化，以达到融会贯通，萃取精华，提高水平 
的目的。当然在这个过程中要给学生充分的引导。 

如我们在讲完课本上所有内容后,我们向学生们 
提出这样一个课题让他们思考解决。即在 LOGO 语言 


中只有一种变量，这种变量虽然能给不同类型的数据 
賦值，但在解决一些较复杂问题时，却不象 BASIC 中 
的下标变量和数组那样使用方便。在 LOGO 语言中如 
有个下标变量和数组功能该多好呀!在这个提示下，同 
学们都有个在 LOGO 语言中需要增加数组功能的迫切 
要求。结合教师的指导，同学们就利用数字能作为变量 
名进行賦值等特点，在 LOGO 语言中开劈了一个相当 
于一维数组的功能。通过这一环节，不但使学生巩固了 
以前学到的基础知识，而大大地锻炼和提高了分析问 
题，综合应用，大胆创造的能力。从另一角度，我们也摸 
到了每个学生掌握知识的程度和实际的能力与水平。 

以上是我们几年来在教学摸索中的点滴体会，仅 
属一孔之见，供同行切磋，不当之处,敬请指正为盼，望 
能起到抛砖引玉之作用。 

• 苹果园地 • 

紫金I制表符的扩充 

南京有线电厂开发的超级汉卡操作系统 
SCDOS ，已经为用户设置了制表符集，每个制 
表符和汉字一样 16 X 16 点阵。调用它们方便， 
只要在中文状态下键入对应代码，它 们是： 
XB 、 XY 、 XC 、 XV 、 XD 、 XF 、 XG 、 XH 、 XL 、 XN 。 对 
应的制表符为 ：丄、 t 、•*、」、「、 n 、卜、4、 

丨、一。美中不足的是，缺少了一个常用的制表 
符+，编制表格时线条不衔接，显得不美观。 

笔者在紫金 I 机上发现，这些制表符存放 
在内存$ 8 A 00— $ 8 CFF 的$ 300个存贮单元 
中，其中有些单元被空着，取$ 8 AE 0 开始的连 
续32个空单元，存放制表符“ + ”的 16 X 16 点 
阵数据（见下）。 

进入监控，键入如下 数据： 


8 AE 0- 

80 

00 

80 

00 

80 

00 

80 

00 

8 AE 8- 

80 

00 

80 

00 

80 

00 

FF 

FF 

8 AF 0- 

80 

00 

80 

00 

80 

00 

80 

00 

8 AF 8 - 

80 

00 

80 

00 

80 

00 

80 

00 


退出■监控调用它时，只要在中文状态下键入 
XI 后按空格键即可显示出来。 

读者可以把扩充后的制表符集点阵数据 
用38八乂£“文件名”，人$8<\00,[$ 300 存盘， 
以后启动机器时让它自动调入内存。 

江苏省昆山制药厂 周美华 
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• 辅助教学与研 究 • 

I 计算桃在辅_化学实验教学中的作用 i 




青岛九中 

随着“四化”建设发展的需要，中学教育要包含计 
算机教育的内容，是势在必行的事。用计算机辅助化 
学实验教学，可不受时间，空间，设备，安全等条件的 
限制，将课堂实验教学内容加以补充，延伸和提高，促 
进学生智能的发展。 

我们在第二课堂的化学实验课中使用了“化学实 
验室”软件。软件包含了 50个化学实验，涉及了 160 
种化学药品，并存入了实验操作的各种仪器和设备， 
它还对同组各化合物相互混合的现象能一一显示，存 
贮信息量较大。高二的学生已经学过的化学反应达上 
百个，但要准确记住这些反应的条件，现象及化学方 
程式却是件令人头痛的事，可是通过计算机绘声绘色 
的显示，便把学生引进了一个奇异的化学世界，使学 
生在愉快的心境，极大的兴趣中获得并巩固了化学知 
识。 

把计算机的应用作为使学生获得化学知识的手 
段，它有以下辅助作用。 

一、教学功效大大提高 

计筧机辅助化学实验可大大提高教师的工作效 
率，充实实验内容，收到事半功倍的效果。由于受各种 
条件所限，课堂演示实验及分组实验仅占所学知识的 
一小部分，例如合成氨的反应需要高温高压催 化剂； 
有些反应物腐蚀性强，毒性大，如氟化氢，硫化氢，氣 
气等; 有的物品价格昂贵如金、银 、铂; 有的实验会发 
生爆炸……如此种种原因使化学实验受到一定局限， 
但化学是一门以实验为基础的自然科学，许多化学概 
念及理论都要通过实验来掌握。计算机可模拟化学实 
验，对实验课加以补充。例如我们做的硝铵爆炸性分 
解，氢气跟氧气混合加热爆炸，硫跟氢气加热制硫化 
氢，硫跟碳加热制二硫化碳等实验都是过去没有做 
的，而且一个实验全过程只需1 一 3分钟。但是在实验 
室要做一个加热实验至少需要10分钟。例如讲碳的 
化学性质时做碳还原氧化铜的实验要用酒精喷灯加 
热15分钟以上才能看到现象，用去课 堂+的 时间。 
讲混合物分离的蒸馏操作，全过程要用20分钟才能 
制出10毫升蒸馏水，用去了课堂 ■! ■的时间。如果是 
有机化学实验花费时间就更多了。另外，实验习题课 
尽管一个年级全年才两节课，每节平均5—6个习题， 


王小然钟元钢 

但由于学生设计实验方案多，药品用量大，一节课时 
间无法完成，只好变学生做实验为老师讲实验。可是 
用计算机辅助实验，一个最复杂的实验操作也不超过 
5分钟，同时，大 童板书 及讲解都可以用屏幕显示代 
替，使学生有时间多做实验并展开讨论，教师也有更 
多的时间提问，指导和检査。 

二、 讨论、启发式教学，学生学习兴趣盎 
然 

学生与计算机的交互作用是计； rr . 机与其它媒体 
相比而独具的，也是独优的品质。计算机的重要特点 
之一是可以人机对话，用讨论法上课，富有启发性，使 
学生在实验过程中兴趣盎然，百做不厌。有时程序中 
设计了一些偶尔的幽默，出人意料的惊奇，有利于兴 
趣的维持。如实验8的屏幕上写 着:“ 哎呀！中午的太 
阳热极了，当你进入实验室，不想别的，只想能有一大 
杯清凉的水喝该多好。你能为自己制一杯可口的饮料 
吗？ ”当学生高兴地制成水后，屏幕又显示 ：“你 制出了 
水，但其中的钠盐使水不能饮用！ ”学生恍然大 悟:应 
当进行混合物的分离。由于人机对话可以及时反馈， 
通知学生操作的对与错，所以学生可在老师不在场的 
情况下自己检査知识，计算机可为你单独“辅导”，使 
学生高效率地获得知识和技能。例如取用药品如果将 
物质状态判断错或用错仪器，药品都取不出来。反应 
物混合错了或用错反应条件屏幕则没有现象，也没有 
信息。如果实验成功了，计算机则发出悦耳的音乐声 
并鼓励你继续进行实验。 

三、 使学生启迪思维、开拓创新 

微机辅助实验教学有利于培养学生的探索精神。 
在实验室里，为了安全和节约用品，学生只能按老师 
的要求做规定的验证性的实验，否则就是违反实验规 
则和操作规程。例如启普发生器发生的氢气点燃前必 
须先检验纯度，如若不纯就会发生爆炸。学生只准点 
燃纯净的氢气，绝不允许做冒险的尝试，可是使用计 
算机进行“实验”，每个同学都做了 2-3 个爆炸性反 
应。当看到玻璃容器炸得粉碎，买验室也被炸毁时，同 
学们个个目瞪口呆，还有的同学尝试用石墨制金刚 
石，用王水溶解金等实验。这样做的结果可以启迪思 
维，开阔思路，大胆探索。 
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CEC — I 中华学习机用于教学，已受到广大师生们 
的欢迎，但目前大多数学校还不可能为每台学习机配 
全软盘驱动器，因而影响了教学质 f 和故果，这里向大 
家介绍一个经济实用的产品 “ CDC 系列磁盘共享器”， 
它能使数台中华学习机共用一台或两台软盘驱动器， 
因而大大降低了成本。 

CDC 系列磁盘共享器 品种： 

1、 CDC — I 型：八 台主机共用一台软盘驱动器 

2、 CDC -- n A 型：四 台主机共用两台软盘驱动器 

3、 CDC - fl B 型：八 台主机共用两台软盘驱动器 
一、工 作原理 

CDC 系列磁盘共享器由分配控制器，接口板组 
成，通过20芯扁平电缆将它与主机，软盘驱动器连接 
起来就 成了磁盘 共竽 H •结构 框图如下 : 


驱动器1 丨驱动器2 i 
_ _ _ _ _ — . — j 
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分配控制器是关键部件，它通过接口板将八台（或 
四台）主机与软磁盘驱动器连接起来，平时环形扫描电 
路不停地发出扫描信号来控制多路分配器，并通过插 


在各主机上的接口板循环检测主机是否有调盘伎能信 
号 （ ENLB ) 。如果每台主机有调盘谙求时， ENLB 就为低 
电 - f . 通过多路分配器的内部逻辑就产生一个禁止信 
号使环形扫描电路停止扫描，因而就将多路分配器锁 
在有请求调盘的主机这一路上，这样就接通了这台主 
机至软盘驱动器的信号线，实现磁盘 操作。 

共享系统采用排队等待方式工作，若有多台主机 
同时请求调盘时，糸统即桉各主机席号或时间上的先 
后，将磁盘驱幼器分配给某台主机，同时利用主机槽口 
上的线，将其它主机锁住，使其处于等待状态，直 
到调盘的主机停止磁盘操作，其它主机才能逐一地连 
通软盘驱动器，这样就解决了每台主机使用软盘驱动 
器在时间上的冲突问題。 

由于 DOS 3 . 3的磁道扇区读写子程序 （ RWTS ) 具 
有较强的寻道功能，因而数台主机可以穿扦调盘，即某 
主机某次调盘后磁头停留接.道位置被其它主机移动 
后，再次谰盘时，可自寻道而不受影响。 

由此可看出，该磁盘共享系统是由硬忤逻辑来完 
成其功能的，不需要系统软件来管理，而且适用面广， 
只要是与苹果机兼容的软件均可运行。 

二、经济效果 

使用磁盘共享器可大大降低系统投资，以一台软 
盘驱动器650元计算，苦整个机房 （24 台主机）全部配 
上单驱就得1,5600元，配上双驱就更高，而 CDC — II 
A 为600元/套， CDC — n B 为1200元/套，24台主机 
配三套单驱动共享系统仅花费4930元，可节约投资一 
万多元，若配 * 又驱共享则节约更多。这里还没有计算由 
于软盘駆动器和盘片数量而引起的日常消耗的降低。 

(徐晓洪） 




四、有助于培养学生理论联系实际的能力 

实验内容联系生产生活实际，涉及知识面广，趣味 
性强，有利于培养学生理论联系实际的能力。化学知识 
与人们日常生活和; i 产有着密切的 联系。 但是学生对 
做实验感兴趣，对士记硬背工业生产、物质的用途感到 
厌烦。如果通过屏幕显示，形、色、声并茂，动、静结合， 
感染力强,刺激各种感官，便会增强识记能力。例如这 
- 节课的11个实验中就涉及了环境保护，污水净化， 


金属的冶炼，安全生产化肥等多方面社会实践内容。过 
去对这些知识就本宣读，连教师也感到枯燥无味。现在 
借助于计算机，使死板的知识变活了。总之，《化学实验 
室》软件的使用使学习者置身于学习过程中•引起对已 
有学习内容的回忆，激发好奇心，在愉快的气氛中达到 
学习化学知识的目的。同时，变单一实验为系列实验， 
变验证为探索，达到掌握知识与培养能力的统一。 
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• 电脑人 门 • 


Apple Soft BASIC 入门 ( 连载 ) 


一个非常有用的清屏幕命令 

HOME 

下面谈一谈与 PRINT 有关的一些命令。 
INVERSE,FLASH 和 NORMAL| 到现在为止，你 

看到的屏幕上的字符都是黑底白字。有没有白底黑字 
的情况呢？有。只要在 PRINT 语句之前使用 INVERSE 
命令即可。请健入： 

INVERSE：PRINT 53721 
则53721以白底黑字的方式显示在屏幕上。 

注意， INVERSE 并不是 PRINT 语句的一部分，仅 
仅改变显示方式。 INVERSE 与 PRINT 之间要用冒号分 
开，可使二者用在同一行内。要变回黑底白字状态时， 
键入 NORMAL 命令。 

现在我们来看另一条命令 FLASH 。 请 键入： 
FLASH ： PRINT 53721 

这时你会看到，屏幕上出现的数字53721是明暗 
闪烁的。中止 FLASH 状态的命令与中止 INVERSE 状 
态命令一样，都是 NORMAL 。 现在我们运用学过的这 
三个命令编写一段小 程序： 

10 PRINT：“THE NUMBERS ARE 53721” 

20 INVERSE : PRINT^THEIR SUM IS :” 

30 Ft > ASH：PRINT 5+3+7+2+1 ：NORMAL 
你会发现，使用 INVERSE 及 FLASH 语句，能够加 
强屏幕的显示效果。 

VTAB,HTAB | 前面我们见到过的移动光标的方式都 
是在 PRINT 语句中，使用逗号、 SPC 、 双引号、 TAB 等， 
它们都局限在一个程序行内，使光标从左到右横向移 
动。现在我们来扩展光标移动的功能，使它能在屏幕的 
任意位置移动，这里要用到两个 命令: VTABn ( n 为整 
数，范围是1〜 24)， HTABn ( n 为整数，范围是1〜 
255)。苹果机的屏幕为24行，顶行是1,底行是24。若 
VTAB 10, 则光标移到屏幕的第10行。请 键入： 
VTAB 10 
VTAB 24 
VTAB 1 

当然，可以把 PRINT 语句加在 VTAB 行，二者之 
间要用冒号分开。请 键入： 

VTAB 10: PRINT“THIS IS LINE 10” 

VTAB 1 : PRINT ** BACK TO LINE 1” 


HTAB 使光标在 40 列屏幕上横向移动。和 VTAB 
一样， HTAB 后边要用整数，数值在 0 〜 255 之间。但最 
好不要使用大于 40 的数(在 80 列方式时，不要使用大 
于 80 的数）。数值1，光标位于当前行的最左边。数值 
40, 光标位于最右边。数值 4] ，光标位于下一行的最左 
边，数值 80, 光标位置于下一行的最右边。请 健入： 
HTAB25:PRINT“GO TO THE RIGHT ”； ： 

HTAB 1: PRINT “GO TO THE LEFT ” 或者键入: 
HTAB 30: PRINT“HOW ABOUT A SCROLL "： 

HTAB ] 56 : PRINT**DOWN THE SCREEN ?” 

I 显示速度 I 你或许已经注意到，苹果机的显示速度很 

快。有的时候,放慢显示速度会提高可读性，加深特技 
效果。使用 SPEED 命令能改变字符的显示速度。命令 
的形式是 SPEED == n ， 参数 n 为整数，范围在0 〜 255 。 
这一命令是用来设置字符在屏幕上或外设上的显示速 
度的。通常,机器自动将显示速度设定为 255, 你可以 
修改命令参数，使显示速度放慢。请 键入： 

SPEED =1 

然后键入几个 print 语句，检査其显示速度效果。 
读屏 幕 I 令你感到非常有用的最后一个命令是 
HOME 。 它能清除屏幕1•.的全部文字，使光标返回屏幕 
左上角。 HOME 命令不需要使用任何参数，只要键入 
HOME , 再按回车键即可。也可以把 HOME 命令加在程 
序行内 ，如： 

10 HOME : PRINT“THE SCREEN WAS CLEARED ” 

第一讲初学简表 

|PRINT 语句 不带限定词时, PRINT 在屏幕上产 
生一个空行。 

2. PRINT 后面有数字时，屏幕上显示这些数字。 

3. PRINT 可运算表达式，并显示其运算结果。 

4. PRINT 可以显示用双引号括起来的一组字 
符。 

5. PRINT 可以用问号 (？) 作为简略形式。 

| 程序行 | l - 程序行可含有多个语句，各语句之间用 
冒号隔开，每一行的长度最多为239个 
字符。 

2. 程序行前面不加行号时，是立即执行方式，按 
回车键后立即执行。 
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3. 程序行前面带有行号时，是近期执行方式，必 
须用 RUN 命令来运行。 

4. 行号不得小于0,不得大于63999。 

| 显示格式 在 PRINT 语句中加入逗号时,屏幕显 

示的数据分为三个定位区段：1—16,17—32, 
33—40。 

2. 分号消除空格与换行功能，通常用来显示中 
间没有空格的项目。 

3. SPC ( n ) 在显示的两项之间插入 n 个空格 ,n 的 
值在0 〜 255之间。 

4. TAB ( n ) 将显示字符设置于距行左边 n 个空格 
位置处， n 的值在 0-255 之间。 

I 显示方式 I 〗. inverse 置显示字符为白底黑字方 
式。 

2. normal 置显示字符为黑底白字方式。 

3. FLASH 置显示字符为 INVERSE 与 NORMAL 
交替方式。 

廢 动光标 | l . VTABn 使光标竖向移动到指定行上 
24， n 的值应在1 〜 24之间。 

2. HTABn 使光标横向移动到显示位置 ， n 的值 
应为0〜255之间。 

苹果机的默认显示速度为255。 

2. 用户使用 SPEED = n 命令可改变显示速度， n 
的值应在0〜255之间，0最慢，255最快。 

I 清屏幕 | home 是清屏命令，使光标返回屏幕左上 

__ 

| 显示示范程承 ] 我们在本讲中介绍了 PRINT 语句的 

各种用法，它们构成的各神显示格式。这些足够你以后 
用来编写各种有趣的程序用了 。下面 ，我们列出一个名 
为 PRINTING • DEMO 的短程序，用来演示宇讲中所 
学过的各种操作。这些程序行你大都熟悉，所以用不着 
再一行一行加以解释了。 

LISTING 1： PRINTING . DEMO 
10 REM PRINTING，DEMO 
20 TEXT : HOME : NORMAL 
30 PRINT“PRINTING DEMONSTRATION ” 

40 VTAB 8： PRINT “THIS PROGRAM DEMON ¬ 
STRATES THE PRINTING ”： 

PRINT“TECHNIQUES EXPLAINED IN CHAP ¬ 
TER 1 M 

50 VTAB 22 : INPUT M PRESS RETURN TO CONTINUE ”； 
A $ 


60 HOME : PRINT“TYPE MODES ” 

70 VTAB 8: PRINT“THIS IS NORMAL TYPE ” 

80 INVERSE : PRINT“THIS IS INVERSE TYPE ” 

90 NORMAL ： FLASH : PRINT “ THIS IS FLASHING 
TYPE ” 

100 NORMAL ： VTAB 22： INPUT M PRESS RETURN TO 
CONTINUE ，，; A $ 

110 HOME ： PRINT “ SPEED = 100 ”：SPEED = 100 
120 VTAB 7: PRINT“USING THE SPEED = COMMAND 
SLOWS”:PRINT “THINGS DOWN ALOT 0 ” 

130 SPEED = 255 : VTAB 22 : INPUT a PRESS RETURN 
TO CONTINUE ”; A $ 

140 HOME : PRINT* 4 AUTOMATIC TABS AND SPC ()，， 
150 VTAB 7 ：PRINT 5,7,9 
160 VTAB 9 ：PRINT 5； SPC (6) ；7； SPC (3) ,9 
170 VTAB 22： INPUT “ PRESS RETURN TO 
CONTINUE w , A $ 

180 HOME : PRINT“HTAB AND VTAB ” 

190 FOR X = 5 TO 15 ：FOR Y =1 TO 40 STEP 5 
200 VTAB X：HTAB Y : PRINT “ HI ” ； 

210 NEXT：NEXT 

220 PRINT：VTAB 22: PRINT “ THAT ' S ALL ” 

TOTAL ： 114 F 
END OF LISTING 1 

第二讲变量 

上一讲，我们学过了万能的 PRINT 命令，现在我 
们要扩充已有的知识，接着讲变量。 

你已经学过, PRINT 是 Applesoft 中主要的输出命 
令。要确定一个个要显示的数据，是一件非常枯燥的事 
情，不过，我们还有更好的 办法。 

使用变量就为你提供了一个处理程序中的数据的 
新方法。首先，我们先来看看变量的特性，然后再了解 
它如何使你的编程工作更容易„ 

变量是一种表示数据项的符号。例如，一个名字叫 
PI 的变量可用来表示 3. 1415这个数。变量代表的数 
据可以改变,而变量名符号不变。例如，名叫 H 1 的变 
量在程序执行时可以表示3,但经过运算后也可以表 
示300。 

给变量命名时要遵守一些规则。变量名的第一个 
字符一定要用字母，它后边可以是字母，也可以是数 
字，长度不得超过238个字符。变量不得使用 Applesoft 
的保 留字。 下面这些变量名是合 法的： 

A 1 

BT 

CHECKBOOK 
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H 2 

P 

Z 765 

而下面这些变量名则不 合法： 
ate 含有保留字 at 

9 B 第一个字符是数字 

GR 2 含有保留字 GR 

HOMEWORK 含有保留字 HOME 

T&B 含有保留字& 

X 2 COST 含有保留字 COS 

X -3 含有一个标点 • ，它既不是字母，也不是数字 
我们在表1中列出了 Applesoft 的保留字，它们都 
是英文，不得用来作为变量名。 

表1_ Applesoft 保留字 


ABS 

HTAB 

RESTORE 

AND 

IF 

RESUME 

ASC 

IN# 

RETURN 

AT 

INPUT 

RIGHT $ 

ATN 

INT 

RND 

CALL 

INVERSE 

ROT= 

CHR$ 

LEFT$ 

RUN 

CLEAR 

LEN 

SAVE 

COLOR= 

LET 

SCTLE= 

CONT 

LIST 

SCRN 

COS 

LOAD 

AGN 

DATA 

LOG 

SHLOAD 

DEF 

LOMEM : 

SIN 

DEL 

MID$ 

SPC 

DIM 

NEW 

SPEED= 

DRAW 

NEXT 

SQR 

END 

NORMAL 

STEP 

EXP 

NOT 

STOP 

FLASH 

NOTRACE 

STORE 

FN 

ON 

STR$ 

FOR 

ONERR 

TAB 

FRE 

OR 

TAN 

GET 

PDL 

TEXT 

GOSUB 

PEEK 

THEN 

GOTO 

PLOT 

TO 

GR 

POKE 

TRACE 

HCOLOR = 

POP 

USR 

HGR 

POS 

VAL 

HGR2 

PR# 

VLIN 

HIMEM ： 

PRINT 

VTAB 

HLIN 

READ 

WAIT 

HOME 

RECALL 

XDRAW 

HPLOT 

REM 

XPLOT 


虽然你可以给变 M 起一个很长的名字，但 Apple 
soft 只使用其中的前两个字符来识别变世。因此， F 面 
这几个变量名在 Applesoft 看来是同一 个变量 ，即 CH : 
CHECKBOOK 
CHECKUP 
CHECKIN 

由此看来，你最好经常在程序中用一个或两个字 
符来代表变量，这样可以避免许多不必要的麻烦。 

医馳 g ^ Aplesoft 有三种类型的变 Ji : 实型变童， 
整型变 童与字 符串变量。在变 M 名后边使用一些符号 
来标明它是哪种类型的变44。 

实型变 童：实 型变童包括所有整数及带小数点的 
数。实型变量名后边不带任何标示符号。 XP , D 2 ,Z 和 
Y 1 都可以表示实型变 M 。 实型变 M 值的范围是一 9. 
99999999 E +37 到 + 9. 99999999 E +37 CE +37 是科学 
记数法，表示10的37次 方）。 

整型 变量: 包括一3 27 6 7 到+ 32767 之间的所有整 
数。整型变量名后边要加上百分号作为标示符号。 
XP %， D 2%， Z %， Y 1% 等都是整型变量。 

字符串变 量：含 有最多255个英文字母和阿拉伯 
数字。字符串变量名后边要加上美元符“ $ ”作为标示 
符号。 XP $， D 2 $ , Z $， Y 1 $等都是字符串变量。 

在上边的例子中，我们使用了相同的名字来表示 
不同类型的变量，用了不同的符号来标明它们的类型。 
Applesoft 把每一个变量视为互不相同的类型。因此，你 
在程序中确实可以用同一个名字来表示不同类型的变 
量。但是，从编程经验来看，这样做则为以后出现各种 
混乱与错误开了绿灯。 

下面请你仔细看看给变世 X 赋的值，能给它们加 
上什么样的标示符号，它们可能是哪种类型的变 M : 

1. X = 3. 1416 

2. X =—29458 

3. X =“ H 20” 

i . X =14. 7 E +10 

5. X = “3. 1416” 

6. X = l . 5 

7. X = 432 

8. X = “THIS ONE IS EASY ” 

9. X =45983 

10. X =-675 

让我们来看看你做对了多少。 

第1，'!，6,9项是实型变 M ， 后边不加标示符号。第 
4,9项虽然是整数 （14.7 E +10 等于 147,000, 000),{0 
它们超出了整型变 M 充许的范围。 

第 2,7,10 项是整数，位于有效范围之内，因此，它 




们既可以是整型变量，又可以是实型变量。如果你的程 
序只要求整数，那么使用整型变量(带％标示符）可以 
加快它的运算速度。但是，为了避免出现超 it ! 允许值范 
围的问题，许多编程人员都用实型变量来表示所有的 
数值。 

剩下的第3,5,8项是字符串变量，要加上标示符 
“ $ ”。字符串变量容易辨认，因为凡要赋给字符串变量 
的值都要加双引号。 

如果你能正确识别以上各项，你便可继续往下学。 
假若你认错了一些项，那就再花些时间复习本节的内 
容。由于下一步你要给变 M 赋值,处理各种变量，所以 
必须弄清楚各种变 M 类型充许的值，正确地给变量赋 
值。 

| 给变 给变量赋值有两种 方法: 从键盘赋值和 

在程序中赋值。磁盘文件中含有的数据也可以用来给 
变量赋值，但我们只讲述从键盘和从程序中给变量赋 
值。 

另外，含有变童的表达式也可以执行运算，运算结 
果用 PRINT 语句显示出来。 

iNPUT| lNPUT 是 Applesoft 最常用的一个语句。这个 

命令是在程序执行过程中给变量赋值的最普通的方 
法。 INPUT 在屏幕上显示一个问号“?”,等待用户输入 
合适的信息。 例如： 

10 INPUT X % 

它让用户向整型变量 X %输入一个值。若 X 是实 
型变量，其形式 则为： 

10 INPUT X 

给字符串变量赋值的形 式为： 

10 INPUT X $ 

现在我们键入一个短程序,看看它运行的 情况： 

10 INPUT X % 

20 PRINT X % 

RUN 

在问号提示符后面，键入 一32767 到+ 32767之间 
的一个整数，程序将把这个数显示在屏幕上。同样，你 
可把程序中的 X %换成实型和字符串型，然后运行每 
一种类型的变量。 

注意，在回答字符串变量 input 语句时不必用括 
号把回答括起来。 

向多个变董赋值时，用户也可以简化成一个语句， 
各个变童用逗号 隔开： 

10 INPUT X %, X , X $ 

回答这种 INPUT 语句时，键入的变量类型要正 


确，之间要用逗号;或者每键入一个回答就按一次回车 
键。如果键入的回答数少于语句中的变童数，屏幕上则 
出现问号(??），告诉你还要输入数据。如果键入的回答 
数过多，屏幕上则显示出错信息 extra K ) NORE ； D •请 
你试一下， 键入： 

10 INPUT X %， X ， X $ 

20 PRINT X % 

30 PRINT X 
40 PRINT X $ 

然后，请用 RUN 来运行它。当你成功地运行一，两 
次后，请试试少输入或多输入几个回答，看看是否出现 
双问号和出错信息。然后再给各个变量输入错误的变 
量值，如把小数输入整型变量 X %,把字母输入 X 等， 
看看会出现什么结果。 

当你对变量值有了 一些认识后，可能会发现，很难 
记住 INPUT 语句要求输入哪种类型的数据。如果你把 
INPUT 语句放到程序中，供以后另找时间运行，要做 
到键入的数据类型正确无误，简直是不可能的。不要 
怕，我们有一个简单的解决办法！ 

| INPUT 提示 | 在实际工作中，可以在输入之前先显示 

一些提示信息，让用户知道，该输入哪种类型的数据。 
这就是提示信息。它可以加在 INPUT 语句中，用双引 
号括起来,后面以分号作结束。 例如： 

10 INPUT“HOW MANY PLAYERS ? ”; X % 

用 RUN 运行时，屏幕 显示： 

HOW MANY PLAYERS ? 

计算机将暂仃运行，等待你输入一个正确的整数 
答案。当然，你也可以用一个 input 提示要求输入多 
个回答。请试试下面的 例子： 

10 TNPUT“TYPE IN YOUR NAME , AGE & WEIGHT . 

PRESS RETURN AFTER EACH . ‘‘; X $， X，Y 
20 PRINT “ HELLO ”; X $ 

30 PRINT 

40 PRINT“YOU DON，T LOOK A DAY OVER ，，; X +10 
50 PRINT 

60 PRINT “YOU WOU LDN，TKID ME ABOUT “； Y ; ” 
POUNDS WOULD YOU ?” 

你可以看到，用一个提示进行多项输入是多么容 
易。在每一个 INPUT 语句中使用简练的提示使你的程 
序最易使用。 

冯静编译自 
《 NIBBLE 》] 989 年 8 期 
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• 硬件制 作 • 

. CEC-I 机操纵杆自制法 

北京联大航天工程学院郗占革 


在许多游戏及应用软件中，使用操纵杆比键盘更（以 PDLO 为 例）: 


加灵活方便。但是，以前有关操纵杆的自制方法，都存 
在着一些缺陷。例如，有一种操纵杆是用微动开关和 
150 KQ 的定值电阻制作的。使用这种操纵杆时，只能 
产生0与255两个极端值，这对于许多需要用操纵杆 
进行精确定位的软件就显得无能为力了。还有一种操 
纵杆是利用 150 KQ 的电位器制作的，它虽然克服了上 
面那种操纵杆的缺点，但由于普通的电位器易磨换，使 
用一段时间以后，其电阻值不再是均匀变化，而是时而 
产生跳变，影响使用效果。其次，使用电位器控制的操 
纵杆反应较慢，不灵活。 

鉴于上述情况，笔者设计了一种操纵杆，基本上克 
服了上述的缺陷，并增加了一些其它功能，使用也更加 
灵活方便。 

操纵杆的电路如图所示。其中 RwmRwSWOKQ 
的电位器，其功率不限，体积应较小 ; mis 
常开常闭型开关（即正常状态下，开关的两个接脚接 
通，另两个接脚断开;按上按钮后，原来接通的两个脚 
断开，断开的两个脚接通）； K 3 、 K 6 为双刀双掷型拔动 
开关; K 7 、 K 8 为常开型微动开关。此操纵杆的工作原理 


(1) K 3 在“1”的 位置： 

当 K 按下时, PDLO 端为 0 V ， 此时操纵杆的值为 
255;当 K 2 按下时， PDLO 端为 5 V ， 操纵杆的值为0;当 
K 、 K 2 全不按时， PDLO 端的电压为0〜 5 V 之间的某一 
值，操纵杆的值为0〜255之间的某一个数，并且这个 
数的取值可由 R W 1 进行调节。 

(2) K 3 在“2”的 位置： 

按下，操纵杆的值为0;按下 K 2 其值为255;仏、 
K 2 全不按，操纵杆的值由 R WI 来决定。此时 H 的功 
能与 （1) 时 K ,、 K 2 的功能正好相反。 

综上所述，这种操纵杆有以下几种 优点： 

(1) 利用电位器 Rw 可进行精确定位。当不按开关 

时，此操纵杆可作为一般游戏旋钮使用。 

(2) 利用微动开关使操纵灵活方便，反应速度快， 
并可减少对电位器的磨损。 

(3) 利用开关 K 3 、 K 6 可将左右（或上下)两按钮的 
功能对调，使操纵方向与实际方向一致。 

此操纵杆也适用于 Apple H 及兼容机。 





PDL3 PDL1 SW0 
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I • 电脑神通 


中华学习机——多通道智能测深仪 


长江航道局重庆工程局 杜晓平 




随着河、海水域的开发和水工工程的发展，对具有 
高精度、多功能的电脑化超声波回声测深仪需求越来 
越迫切。我们设计研制的中华学习机一一多通道智能 
测深仪（以下简称中华机测深仪)是一种具有高精度、 
多功能、电脑化的超声波回声测深仪.其测量精度可达 
±0. 1 %, ±2. 07 厘米； 具有航船吃水预置，声速校准； 
测深仪固有误差修正；1〜32个横阵列超声波收、发换 
能器无漏轮序扫测、分组轮序扫测和单个测量水深;实 
时全屏幕所测水底断面、疏浚断面、水深值、疏浚值显 
示;储存、打印所测水深图、断面图等;计算疏浚方量 f 
浅水和水底丢失报筲；自动水底跟踪》自动量程选择； 
发射脉宽自动控制……等等。操作使用十分方便，是目 
前国内技术先进性能优良的河、海测量、疏浚、水工建 


含盐水域可达士5%,因此，当 C 在]405米/秒(温度和 
盐度 = 0) 〜1555米/秒（温度 = 32 C , 盐度= 40%。）范 
围变化时，采样频率 fc = l/Tc = 35(4 7 0) 千赫〜 39 
(519) 千赫(注一括号内为样点水深 =1. 5毫米的硬件 
采样频率）。由于中华机的主频是固定的，因此，在采用 
随 C 变 fc 的同时，又用软件进行插值补偿，提高了测 
量精度。 

2. 仪器通频带宽 Af 引起的固定时延误差 :设发 
射信 号为： 

X ( t ) = Asin 2 jift ,0< t o <t (3) 

如图一所示。当它通过带通滤波器后的接收 信号： 

Y ( t ) = ^^ e 6 sin 2 itt (4) 

znr 


筑、管道敷设、沉船打捞等水工工程用设备。 

技术先进、性能优良的智能化超声波测深仪必需 
考虑解决测童精度、抗干忧、无漏扫测水底和实时测量 
数据显示和计算以及测后出图处理等。下面谈谈我们 
的设计考虑。 

一、修正各类误差,提高测量精度 

超声波回声测深仪的测量精度主要取决于以下方 
面： 

1.声速 C : 超声波回声测深的公 式为： 

, H = l /2 Ct (1) 

其中 H 为被测水深， C 为声速, t 为声波传播时间。一般 
的测深仪把 C 看作常童,其对应的时间采样频率也不 
变，但实际上 C 是一个随水温、盐度诸因素变化的函 
数变量，这使测童误差较大，一般精度在2%左右。如 
果采样频率随 C 而变化，则误差就可做得很小，这时 
的误差仅取决于单个采样点所对应的水深值。中华机 
智能测深仪规定1米水深的采样点数为 5 0个(用软件 
采样)或667个(用硬件采样），则一个样点对应水深为 
1/50米（或1/667米），即 AH = 2 厘米（或 1. 5毫米）， 
由下列公式可得随 C 而变化的采样周期 Tc 。 

Tc ==2 AH (2 C 0 — C )/ C 0 2 (2) 

其中 C 。 为标准声速，一般选取1500米; C 为可变声 
速; Tc 为随 C 而变化的采样周期； AH 为单个样点对 
应的水深。一般淡水域中 C 的变化范围最大达± 3 %， 



图1 




如图2所示。由图3的¥(1)的包络图知,¥(1)对某 
一检测门限 Y 。 (一般为计数和记录器的启动电平）.有 
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一固定时延 t 。， 这会给测量带来误差。这个 t 。 可以通过 
实验测出，也可用下式 算出： 

△ f = In (^^- sin 2 irftmax / sin 2 jtft c )/(t - t 0 )(3) 

I max 

其中 Af 为总带宽， t m „= (lArfdtan- 1 (2fo/Af). 

Y m „= ( l /2 fo ) e " A , ""° x sin 23 Tfot m „,Yo = Y m „X 10- l/20 , 
k 为到 Y 。 时的分贝数。 

多通道智能测深仪用软件对这个 to 进行修正。 
另外，由于仪器的总带宽和信噪比 S / N 都为有限 
值，要引起 At 仪/2的误差， 

At=lAf n /2( S / N )-1 (5) 

多通道智能测深仪采用了优质宽带换能器 ( Af > 
5 KH ,),201, S / N >50 db , 使 ZMCU 微秒，由此引起的水 
深误差 <0. 4厘米，可忽略不计。 

二、对干扰的抑制，提高测量的准确性 
在水中，浮游生物、悬浮物、气泡，甚至温度或盐度 
的变化都会产生干扰信号,尤其是水急漩多水域，噪声 
或混响引起的干扰信号很强，性能一般的测深仪往往 
只用一滤波器加一个数字转换电路就配入“电脑处理 
测深系统”，其采集的水深值很容易被干扰而成伪水深 
值,在采用“取先排后”的采样方式时，就会误取干扰信 
号，丢掉真实信号。中华机多通道智能测深仪采用了目 
前国内外的有关先进技术和理论，对数字化转换电路 
抗干扰问题作了认真的处理。 

1.运用相关理论和自动跟踪 技术： 我们知道回声 
信号具有周期性，干扰信号则是随机性的，利用这个特 
点，就可运用相关理论在时间轴上选通回声信号 。其原 
理如图4所示。 



图4 

选通门在信号发射的同时关闭，直到回声到来的 
H - AH 时刻打开 ( H 为上次所测水深值），由于回声的 
周期性，每次回声都将落在门内，而随机性的干扰就被 
阻止在门外。当水深变化时，选通门随之移动，保证回 
声落在门内，实现自动水底跟踪。的值根据需要而 
定,一般选1米，如果水底坡度大，由自动扩展至2、3、 
4、……米，最后加一个全程搜索，保证信号的真实度。 

2. 发射脉冲宽度控制 ： 由于发射电路中存在电感， 
发射结束后，仍存在衰减的振幅电平，常称“余谐”，如 
图5所示。水底越浅,发射脉宽越宽，余谐对回声信号 


的影响也越大，往往会淹没回声信号。一般的测深仪的 
发射脉宽采用一常值 （0. 5〜 lms )， 浅水时，调小接收 
灵敏度，使检出的信号幅值不太大，相对余谐则很小， 
减弱 干扰; 测深水时，调大灵敏度，否则信号放大量不 
够，丢掉信号。我们设计中华机智能测深仪时，采用微 
机自动控制发射脉宽，让发射脉宽随测量范围的变化 
而取不同的值，参见表一。在精度一样的情况下，即能 
测浅水，又能适应深水测 M 。 

3.发射脉宽预检比较 :测深 仪的发射脉宽在一定 
的测程内是固定的,而干扰信号的电平宽度是随机的。 
中华机智能测深仪采用了脉宽预检比较技术，从不同 
测程范围的发射脉宽信号中检出相关的回声脉宽与收 
到的信号比较，滤除与发射信号不相干的干扰信号，检 
出相同脉宽的真实信号。 

另外，为防止船上恶劣工况的干扰,收发电路和中 
华机各单独使用自己的电源，同时使用光电隔离电路 
隔离收、发器，除中华机外，其它部件全部用一金属箱 
屏蔽起来。 

经过微机用上述技术和理论处理后，测深仪的抗 
干扰能力大为提高。 

三. 使用微机控制多通道断面法无漏扫测 
水底。 

在水中施工时，常需要知道准确的水底形状，目前 
绝大多数测深仪只有一个通道（即单只超声波换能 
器），单波束，其波束宽约6〜30%它把波束内最高点 
认作是正下方的水底；因此，难以细致地描述水底；用 
它作横断面法测 M 时，常有浅底漏测或其他方面的漏 
测造成航道隐患或给水下施工造成不便。采用多波束 
(即多通道)断面无漏扫测技术测量水底，保证船舶航 
行安全、准确实施疏浚、顺利进行水下工程建筑或沉船 
打捞，是当今测深仪的发展方向。中华机智能测深仪的 
设计吸收了西德 SUSY 41 测绘系统的先进技术，使用 
多个超声波换能器，用微机控制 ，根 据测需要实施轮 
序扫测、分组扫测或单个测量水底。在实施自动跟踪轮 
扫时,根据相关理论，在航速小于12节时，可实现不丢 
水底的无漏测量。该测深仪安装换能器的多少，由使用 
船舶的宽度和测 M 要求而定，最多可装 3 2个换能器。 
换能器阵列所扫测的水深值，通过中华机直接在屏幕 
上实时显示出来，并实时绘成水深断面图显示在屏上。 
当用于疏浚时，通过预置设计水深，在屏幕就可实时显 
示疏浚断面和疏浚方 M 。 

四. 多通道智能测仪的组成和工作原理 

中华学习机——多通道智能议的结构组成如图6 

所示。 
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图6 

其中 I / O 接口与数字计时电路可有两种方案，一 
是数字计时电路采用单独的计数器和计数脉冲电路， 
I/O 口则采用一般的锁存器（如 7 < LS 37 3 等），并用译 
码器选通；另一方案为用2至3片 6522 VIA 作为数字 
计时和1/0电路，后者电路较前者简单，但要浪废两个 
PA 或 PB 口。 

其工作原理为 ：开机 的同时即清计数器、 V 0 口和 
A / D 电路，然后调入 BASIC 程序，调入自检程序检测 
每个单元电路的好坏，检测完后，对致命性的坏电路报 
瞥指示，停机让技术人员进行检修;对非致命性坏电路 
(如某换能器坏）则置损坏标志，这时可以不停机继续 
运行;再预置一些参数,调入汇编发射子程序进行发 
射，在跟踪门内收到回声信号后，即开始进行信号真伪 
辨别，对真信号进行各种误差补偿，以便实施测程、脉 
宽、跟踪门宽的自动转换和跟踪,然后把真实的水深值 
送往数据区存放，并进行下一个通道的发射、接收，待 
预选的扫测方式所规定的通道发射、接收完后，即转入 
绘图、显示程序中数据储存程序。其测、显时间一般为 
1~2次/秒„当所收信号落在报瞀浅区或信号丢失，报 
膂器立即工作报膂，直至船舶进入安全水区或找到再 
次发射的回声信号。 

五.中华机 多通道智能测深仪的主要 
设计技术指标 

1. 测深精 度:士 0.1% 

2. ill 程：0〜10,0 〜 30, . 0~100米自动选择 

3. 脉冲 宽度: 0. 1~1_ 2 ms 自动调节 

4. 发射频率 :200 KH Z . 

5. 发射功率: >50瓦 
6•显示精度：0. 01米 

7. 自动跟踪:6节航速，水底坡度<50%不丢失水底 

8. 测量方 式:全 部轮扫、分组轮扫、单个测量可选 

中华机——多通道智能测深仪在许多方面领先于 
国内同类产品，如果再配上好的定位仪、绘图仪等，就 
成为一个先进的水道微机扫测系统，而且价格低廉。 


• 国际动态 • 

APPLE 公司计划推出两种新产品 


1989年10月, APPLE 计算机公司计划生产两种能扩充 
和增强其日益普及的 Macintosh 产品系列的新 产品: Apple 公 
司第一种与 Macintosh 兼容的便携式计算机和至今为止工作 
速度最快的 Mac ——首次装有内部8位颜色的三存储槽 n 
c“ 

人们等待已久的便携型机重〗 5. 5 磅的 Mac ， 采用一个 
16MHZ 68000CMOS CPU ， 能控制高达 2M 的静态 RAM ， 软件 
兼容性问题由 MacSEROM 加以解决。该公司美国销售经理 
迈克 • 霍默声 称:“ 该便携型机比 SE 产品的性能高两倍。”他 
预计该机能用于图象和直观显示，使电子蓝图进入设计领 
域,以及用于一般的商业应用。 

匀边黑白 640 X 400,75 dpi 有源矩陈液晶显示器比 SE 型 
宽，为便于携带可折起来扣到健盘上。该键盘右侧有一个跟 
踪球(也可装在左侧），用于发出鼠形器命令——这样就解决 
了对鼠形器定;位和在飞机折叠桌上使用计算机的问题。 

只要将便携提手推进该机的闭合槽内,计算机就自动打 
开和通电。由于9伏备份蓄电池能使 SRAM 信息显示出来， 
因此不再需要使用通/断幵关。微处理机能监视和经常控制 
主电源的负载。主电源是一种可更换和可充电铅酸蓄电池。 
例如，当机器处在“备用状态”时，机器的工作速率可降至 
1 MHZ 以上，以使电源的工作时间达到8〜10个小时。标准便 
携机的售价预计在 65 ⑽〜 7 000美元之间，包括一个硬 
盘（带有工厂安装好的 Hgpercard 和系统软件）和一个 1. 4 M 
“ superdrive ” 软盘机。插人视频输出端口的任选适配器能产生 
NTSC 、 SECAM 或 PAL 制式投影信号或驱动 Macintosh 监视 
器。 

lei 是小型模件化的成功产品，1989年3月推出•的三存 
储槽 Macintosh I cx 显然没有受到 Apple 公司的重视。由于工 
作速度快，新型 I ci 不采用视频卡， Apple 公司似乎是在 a cx 
上加装了一个存储槽，没有改变机壳的外形。据该公司产品 
经理弗雷德 •. 本兹介绍 ， I ci 采用更快的芯片一3 2 位 
25 MHZ 68 o 30 CPU 、 68882浮点协同处理机、 80 ns DRAM (达 
8 M 位），因而可比 I cx 或 II x 的工作速度高约45%,比 Mac 
I 高70%。 

内部自构视频允许把 dram 用于其屏幕缓冲器，并能在 
各种监视器上给出 640 X 480 的分辨率，每个象素为8位 
(256 种颜色或灰度）。它能支持 Apple 全页 640 X 870 分辨率 
的监视器，每个象素4位 （16 种灰度）。一种任选】20引脚存 
储器超高速缓冲卡可使 CPU 存储存取时间降低10•-20%， 
以 NuBus 为基础的标准显示器卡能代替内部视频卡，增加功 
能或颜色•提高性能。 

Ici 的售价比类似结构的 I cx 多 1500—2000 美元。标 
准产品包括 1. 4 M “ superdrive ”、40 M 或 80 M 硬盘机和7个端 

马子明译 
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******** 

^ - 竞赛园地•玲 

编者 的话： 

本期《竞赛园地》试题“高空跳伞”是1989年全国 
青少年计算机冬令营的 赛题。 为了给没有参加冬令营 
的广大青少年朋友提供一个均等竞赛的机会，比一比 
高低，赛出高水平，这是我们的希望。本期收软盘及说 
明的截止日期为五月十五日（以邮戳为准），奖品与前 
期相同。 


炉〜次？〜〜〜〜〜令 

| 高空跳伞 | 


运动员身上承受的合力为重力与空气阻力之差， 
F=mg-Ff 

根据牛顿定律 F=ma > 
a 为人下落的加速度。 



当 Ff = mg 时，物体受力为 0, 加速度为 0, 人就以 
匀速下降，这时的速度为 V 0。 


一位跳伞运动员从2000米的高空向下降落，如果 
不打开降落伞，运动员到达地面的速度将有多大?为什 
么打开降落伞之后，运动员落地速度会变小？ 

一.基本概念 

1. 能量守恒定律 

2. 空气阻力与物体截面积和速度之间的关系 

3. 动童的 变化量等干冲 M 
二•示教内容 

(一）自由落体 

自由落体的速度 v 与它降落的距离 h 有密切的关 
系，降落的距离越大，着地的速度就越大。最后，物体相 
对于地面的势能将会完全变成物体着地前的动能。由 
| 能置定恒定律 | 势能与动能二者大小相等。即 


— mv 2 = mgh 

其中, g 是重力加速度， h 是高度， 
m 是物体的质量， v 是落地速度 
所以解得 v = V 2 ^h 

代入数值 v = V 2 X 9. 8 X 2000=198 米/秒 

(二)无伞降落 

运动员若以198米/秒这么大的速度落地，那真的 
要粉身碎骨了！但是，由于空气阻力的存在，运动员不 
可能达到这么高的降落速度，在运动员下落过程中，除 
了受到重力作用之外，还要受到空气阻力作用，已知如 
下 结论： 

物 体下落的速度越大，受到的空今阻力越大。 I 令 Ff 表 

示人所受到的空气阻力， Ff 和 v 的关系如下图所示： 




从时间和速度的关系上看，速度增加到 V 0 时就 
不再增加了。 V 0 的值随下降物体的形状和截面积大小 
变化，有人估计，如果运动员不打开降落伞，当速度增 
加到50米/秒左右时,空气阻力与重力相等，就以该速 
度匀速下降。 

既使这样，着地后仍十分危险，假定运动员体重为 
65千克，在 0.5 秒内使自己的速度由50米/秒变为 
零，根据 

动置变化量 # 手牙 llmv —O^Ft 
F =mv/t 

= 65 千克 X 50 米 / 秒 + 0. 5 秒 
= 6500牛顿 

运动员要承受这么大的力，势必丧生无疑！ 

(三)有伞落地 

人们又发现空气阻力还与下降物体的最大截面积 
有关系。 

_ 积越大，空今■画另^ 降落伞就是根据这个原 
理制作的。运动员一打开降落伞截面积就变得很大，那 
么空气阻力就变得很大，降落速度立刻就会减小，最后 
运动员将以5米/秒左右的速度匀速下降，这样运动员 
落地就不会再发生危险了。 

三.要求 

(一) 突出教学目的。 

(二) 视听效果好。 

充分运用彩色，动画，文字，音响等手段。 

(三) 软件结构清晰。 

合理利用工具软件,注意程序的结构化。 
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. 软件. 


Apple 扩展 BASIC 系统 AEBS 简介 


广州增城中学梁予斌 


APPLESOFTBASIC 的功能是比较强的，但是仍然 
不能满足一些软件设计的需要。为此，笔者在初步剖 
析 APPLE 系统的基础上，编写了 APPLE 扩展 BASIC 
系统 (APPLE EXPAND BASIC SYSTEM ) ，扩展了 40条 
指令，包括 apple 的图象处理、音响、文本处理等方 
面的功能。 AEBS 系统的系统程序 AEBS . STS 一旦运 
行后,就能自动设置 HIMEM , 将系统安装在$ 8 B 00- 
$94 FF 存贮区内。考虑到系统的灵活性， AEBS 预留 
了扩充的空间，用卢可以方便地增强系统的功能。同 
时，腾出了 $300这一页的空间，将它转交用户。 

一、系统功能简介 

1. 语音处理功能 

(1) &PLAY A,B 

该语句是演奏音乐，其中 A 是音阶控制值， B 为 
音长值。系统初始定义了 28个音阶和15个音长控制 
值。系统磁盘上还附有其它几种调的数据，用户只需 
BLOAD 出来，而不用更改程序。 

(2) &BEEP A，B 

该语句使 APPLE 的小喇叭发出响声，适用于游 
戏程序的设计。 

(3) &SOUND A，B 

该语句和有关书上介绍的音响子程序基本一样， 
它的使用方法更方便，速度更快，代替了两个 POKE 
语句和一个 CALL 语句。 

2. 图形处理功能 

(1) 屏幕软开关 

& HGRT 、& HGR 、& HGR 2 、& GRT ，& GR、&TEXT 
分别为设置高分辨图形的第一页和文本混合显示方 
式，髙分辨图形第一页全屏幕显示方式，高分辨第二 
页全屏幕显示方式，低分辨图形与文本混合显示方 
式，低分辨图形全屏幕显示方式，文本显示方式。 

(2) &GPRINT AT (页数） 

设置高分辨图形区显示字符。若 & GP ^ INT 后不 
加任意参数，则在上一次设定的页数显示。这些字符 
可以通过系统提供的 edit CHAR 来修改。 

(3) &TPRINT 

取消 & GPRINT 的功能，恢复文本区显示字符。 

(4) &INVERSE 

设置 & GPRINT 为反转方式输出。 


(5) &NORMAL 

设置 & GPRINT 为正常方式输出。 

(6) &-HSCRN(X,Y)#A 

可读得当前高分辨图形页上座标为 （ X , Y ) 的点 
值，若这一点是亮点则输出为1，否则为0。若#后为 
整形变量则输岀到整型变量中去。 

(7) &CP# 〈页 数〉 

使高分辨图形实现换页，不但实现屏幕显示页转 
换，还将作图权进行转换。若只是 & CP ， 则对当前的状 
况作转换处理。 

(8) &DRAW AT 〈页 数〉 

可设置当前作图页，但影响屏幕显示。 

(9) &CLEAN# 〈页 数〉 

可以清除设置的高分辨图形页，若只是 
& CLEAN ， 则清除当前高分辨屏幕。 

(10) &SCREEN 〈底色〉 

可设置当前高分辨屏幕的底色。（不影响 HCOI 
OR 值） 

(1D&COPY A TO B 

可以将 A 页原原本本地复制到 B 页。该语句设置 
了三个图形页。第三页图形的存贮区为$ 6000— 
$ 7FFF 。 

3. 键盘处理功能 

( D &.1 NKEY A 

将当前按下的键值或字符送到浮点变量、整型变 
量或字符串变量中去，若无键输入则输出值为 0( 字符 
串变量则输出为空串）。 

(2 )&-CLKEY • 

清除按下的键。 

4. 文本屏幕处理功能 

(D&PRINT AT X ， Y，". 

在屏幕座标为 ( X ， Y ) 的位置输出数值或字符串。 

(2) &WINDOW XI ， Y1 ， X 2 , Y 2 

设置文本窗口，左上角座标为 ( X 1， Y 1)， 右下角座 
标为 ( X 2 ， Y 2 )。 

(3) &RW 

恢复文本窗口，清除 &WINDOW 的影响。 

(4) 屏幕卷动 

& xs 、& jrs 、& ds 、8 ojs 分别为左卷，右卷，下卷，上 
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卷。该语句受 & WINDOW 的影响。 

(5)& CLSX 1, Y 1 , X 2, Y 2 

局部清屏。 X 1, Y 1, X 2, Y 2 的设置同 &. WINDOW 。 

• (6)&. READ ( X , Y)#A 

将屏幕座标为 X , Y 的字符或代码送到字符串变 
量，浮点变量或整形变量中去。 

5、 扩展 BASLC 命令 
( D & RESTORE 〈行 号〉 

将 READ 指针指向设定的行号。 

(2) &.GOTO A 

GOTO 到某一变量或算术表达式所指定的行号运 

•行程序。 

(3) &-HOSUB A 

GOSUB 到某一变量或算术表达式所指定的行号 
执行子程序。 

(4) &.RESET ERR 

清除 ONERR GOTO 的影响。 

6、 其它功能 

(1) &.BASLCERR #〈代 码〉 

模拟产生 BASLC 错误。 

(2) &. DOSERR # 〈代码〉 

模拟产生 DOS 错误。 &. 

(3) &DOS OFF 

关执 DOS , 不执行所有 DOS 命令。 

(4) &DOS ON 
恢复 DOS 。 


该语句是为用户提供简易加密而设计的。 

4、 &.ON RESET RUN . &.ON RESET BOOT , 
&. DOSON . &. DOSOFF 命令是不兼容的，它们都对 RE - 
SET 作相应的处理 。 &.ON RESET RUN 当按下 RESET 
后会脱离 DOS ,在用户的程序里只需加入两句则可恢 
复 DOS ; 

&.DOS ON：&.ON RESET RUN 

5、 AEBS 系统和汉字系统不兼容。 


三、系统磁盘的主要文件 


HELLO 
AEBS . SYS 
EDIT CHAR 
PRIVE CAR . DEMO 
SCREE . DEMO 
TEXT . DEMO 
SOUND . DEMO 
SYS . SET 


引导程序 
AEBS 系统 
修改高分辨字符 
演示游戏——开汽车 
高分辨图形演示程序 
文本显示演示程序 
声响演示程序 
系统高分辨字符。 


四、生成子系统的方法 

只需将系统调入后，然后插入子盘,键入 : BSAVE 
AEBS . SYS ， A $ 8 B 00, L $ 9 F 0. 

在子盘的引导程序里，第一句将系统调入内存并 
运行。 

如：10 PRINT CHR $ (4 );“BRUN AEBS . SYS ”。 


(5) &ONRESET RUN 

按下 RESET 后程序重新运行 

(6) 8 ^on reset boot 

按上 RESET 后清内存，并引导磁盘。 

二、注意事项 

1、 AEBS 系统具有检测错误的功能。若显示错误 
信息，用户可检查语句是否符合系统的要求。 

2、 如果没有设定过图形页，不要用 & SCREEN 、 

&. CLEAN 命令，它可能破坏 APPLE 系统。 

3、 &.ONRESET BOOT 命令不要轻易使用。 

>0o^o0o0o0o0o^o0o0o0o^o^o^o^o0o0<><>o0<>0<>0o0<x 

《中华学习机普及教程》应时出版 

我国为了普及科技文化教育，正在大力发展中华 

学习机的时候，《中华学习机普及教程》应时出版了。该 

书是作者近几年来多次举办中华学习机普及培训班时 

针对一般没有受过计算机教育的学生家长进行讲课的 

材料而整理编写的。它的语言通俗易懂，内容丰富实 

用，以学会开机操作为目的，解说比较详尽，使得读者 

能够无师自通，边学边练，由浅入深，逐步掌握中华学 
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五、系统的扩展 

系统内存的 分配： 

$ 8 B 00— $ 8 BFF $处理程序及入口地址表 
$ 8 C 00— $ 8 CFF 命令名表 
$ 8 D 00— $ 94 FF 各命令的处理子程序 
若要扩展一条命令，则首先将命令名转换成相应 
的代码，然后再在 $ 8 C 00 向后搜索，找到 FF ， 在这个 
地址开始，将代码键入内存，在结束处加入$ 00 , $ FF 
的结束标志。完成后，再从$犯 6] 向后搜索，找到一连 
串的00,在第一个00的地址处键入入口地址，先低 
位，后高位。 

习机的结构功能和基本操作方法。 

该书除了介绍中华学习机的主要性能及其基本操 
作和 basic,logo 两种语言之外，还列举了很多应用 
实例，如中华学习机教学网络，乡镇企业管理软件，辅 
助教学软件，文字编辑打印方法，游戏软盘使用说明等 
等，对于广大中小学校师生，企业管理干部和技术人员 
进行学习应用计算机，是一本较好的科普书籍。 

该书由中山大学出版社出版，《中华学习机》杂志 
社发行，每册定价 2 . 95 元，另加收0. 3 0$ 邮费。 




华光 IV 型电子出版系统 

HUAGUANG 4 TYPE ELECTRIC PUBLISHING SYSTEM 
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华光 IV 型电子出版系统是潍坊计算机公司奋战十几年 
的高技术成果舯华民族文化的结晶。 

® ™ 华光， 是潍坊计算机公司的产品注册商标。 

a 醜华光电子出縣纟細生产基地在潍坊。 

BhmAH 华光电子出縣统自 1985 

、 年通过国家级鉴定以来，荣获 

多项国内外大奖和多次在世界 
银行招标中标，1989年又独 
家获得国家质量银奖。 



L - fS3 

圈 、二一、年 


华光电子出版系统最新 

成果有： . 高集成度、高可靠性、高功 
能照排控制机 TC —— 8 9。 •国内最新型 
全版面显示，多功能大屏幕报纸、广告处理 
系统 • 最新报版、书版、杂志版合用编辑 
系统 • 高清晰度、多功能图片照片处理系 
统 • 朝文、维文、蒙文、傣文、藏文、阿拉伯 
文等多种文字处理系统 

华光用 户已遍及全国(含台湾)及 
东南亚地区。华光电子出版系统是印刷出 
版界朋友的忠诚伙伴。 



















































潍坊计算机公司是开发、生产、经营计算机、汉字信息处理、通信等 
办公自动化系统设备的综合性髙技术实业集团公司，国家二级企业。 
该公司为顺应国际计算机发展的新趋势，建立了以计算机 ( Computers ) 
通信 （ Communications ) 和汉字信息处理 （Chinese Character Processing ) 
技术等特色和优势的“三 C ” 产品结构。 

主要产品有： 

==程机_换机 [irniiri^ 

來各类无线电话机和移动电台 | 出 I ! I (I iiiiin jij I _ 

x 计算机 
X 高 




其中“计算机——激光汉字 
编辑排版系统”是 X 五年中国 
十大科技成果之一，多次荣辞 
国内外大奖，曾多次代表中 j 
参加国际展览，并获得二项_ 
际专利和三项国家专利。 


中國 • 濰坊計算機公司 

地扯：中国山东潍坊市东风大街60号 电传:324304 CWF CN 

电话 ： 225397 22692 1(总机） 传真： 225397 

电报:0308 邮政编码:261041 





























































